my $sock = IO::Socket::INET->new(PeerAddr => $host,
				 PeerPort => $port,
				 Proto    => $proto);

if ($port == 21) {
while (<$sock>) {
$sock->print("blah");
my $server = $_;
chomp $server;
print $server;
}
}

elsif ($port == 22) {
while (<$sock>) {
$sock->print("\012\012");
my $server = $_;
chomp $server;
print $server;
}
}

elsif ($port == 80) {
$sock->print("HEAD / HTTP/1.0\012\012");
while (<$sock>) {
my $server = $_;
print $server;
}
}