можно как-то научить print'ы писать в сокет?
!/usr/bin/perl -W
use Socket;
socket(Socket_Handle, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(Socket_Handle, sockaddr_in( 80, inet_aton("213.180.204.8")));
select Socket_Handle; $| = 1;
print Socket_Handle "GET / HTTP1/.0\n\n";
print STDOUT <Socket_Handle>;
close(Socket_Handle);