use IO::Socket;

my $site = <STDIN>;
chomp $site;

my $fh = IO::Socket::INET->new($site) or die "Socket open failed: $^E\n";
my $line = <$fh>;
print $line;
__END__
% perl lgetr.pl[HIT RETURN HERE]
mail.hotmail.com:smtp[HIT RETURN HERE]
220 mc5-f26.hotmail.com Sending unsolicited commercial or bulk e-mail to Microsoft's computer network is prohibited. Other restrictions are found at http://privacy.msn.com/Anti-spam/. Violations will result in use of equipment located in California and other states. Sat, 30 Apr 2005 19:28:52 -0700