perl telnet 80

use IO::Socket; # 5.004 才有的新模组
$handle = IO::Socket::INET->new('')
|| die "无法接上 的 port 80： $!";
$handle->autoflush(1);
if (fork()) { # XXX: undef 表示失败
select($handle);
print while ; # 将所有从 stdin 来的丢到 socket
} else {
print while <$handle>; # 将所有 socket 来的丢到 stdout
}
close $handle;
exit;