Help for this page

Select Code to Download

Select or download this

my $dusky = IO::Socket::INET->new(
    PeerAddr => $duskyip, PeerPort =>$duskymoxaport, Proto => 'tcp', T
+imeout => 1
) or warn "Connection to $duskyip:$duskymoxaport failed because $!/$^E
+" and next XXX;