images/napali.gifNapali.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;