Help for this page

Select Code to Download

Select or download this

#! /usr/perl/bin
use warnings;
...
    die "doc content is not undef\n";
}
print $page_content,"\n";

Select or download this

my $sock = IO::Socket::INET->new(PeerAddr => $host,
                                 PeerPort => $port,
                                 Proto    => 'tcp',
                                 Timeout  => 30) || return undef;