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

my $request;

if ($port == 21) {
	$request = "blah";
} elsif ($port == 22) {
	$request = "\012\012";
} elsif ($port == 80) {
	$request = "HEAD / HTTP/1.0\012\012";
}

print $sock $request;

while (<$sock>) {
	chomp (my $server = $_);
	print $server;
}

close($sock);