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