use IO::Socket; &TCPOpen('auld.me.uk',80); print &TCPQuery("GET / HTTP/1.0\n\n"); &TCPClose; sub TCPQuery() { ($query)=@_; print $socket $query; $rxdata=''; while(1) { $data=<$socket>; if ($data eq '') { last; } $rxdata.=$data; } return $rxdata; } sub TCPOpen() { ($remote_host,$remote_port)=@_; $socket = IO::Socket::INET->new(PeerAddr => $remote_host, PeerPort => $remote_port, Proto => "tcp", Type => SOCK_STREAM) or die "Couldn't connect to $remote_host:$remote_port : $@\n"; } sub TCPClose() { close($socket); }