perl IO::Socket实例 读取远程服务器的第一行数据

#!/usr/bin/perl
#
use IO::Socket;

my $server = "localhost";
my $fh     = IO::Socket::INET->new($server);
my $line   = <$fh>;
print $line;