#!/usr/bin/perl
use IO::Socket;
$host = "127.0.0.1";
$remote = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host, PeerPort => "80");
unless ($remote) { die "cannot connect to $host"; }
print "connected\n";
while (<$remote> )
{
print $_;
last if (/220 /) ;
}
$remote->autoflush(1);