Элементарный скрипт, который открывает сокет, передает в него данные, считывает ответ и выводит результат на экран.
#!/usr/local/bin/perl -w use Socket; #Библиотека для работы с сокетами $host="example.com"; # Адрес (DNS или IP) сервера http $port=80; # Порт сервера http $proto=getprotobyname('tcp'); # Преобразовываем имя протокола в число $line_to_send="GET /index.html \n\n"; # Строка-запрос серверу $iaddr = inet_aton($host); # Сделаем адрес хоста понятным функции connect() $paddr = sockaddr_in($port, $iaddr); socket(SOCK,PF_INET,SOCK_STREAM,$proto); # Обьявляем сокет connect(SOCK, $paddr); # Открываем сокет send (SOCK,$line_to_send,0); # Шлем строку @data=<sock>; # Считываем ответ close (SOCK); # Закрываем сокет foreach $line(@data){ #Выводим ответ на экран print ("$line\n"); }автор скрипта: Виталий Туровец http://corebug.net