Napali.ch /perl
#!/usr/bin/perl -w use strict; use IO::Socket; my $server= shift; my $sh = IO::Socket::INET->new($server) or die "constructor IO::Socket::INET->new failed: $!"; print my $line = <$sh>; $sh->close;