кинь исходник в ПМ, я гляну =)

#!/usr/bin/perl
use IO::Socket;
$server='antichat.ru';
my $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80");
print $socket "GET http://antichat.ru/ HTTP/1.1\n";
print $socket "Host: $server\n";
print $socket "User-Agent: Mozilla/5.0 (OS/2; U; OS/2 X.618; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n\n";
while ($answer = <$socket>){
print $answer;
}

вот рабочий пример, разбирайся