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);
}