if(IO::Socket::INET->new(PeerAddr => $ARGV[0],
                            PeerPort => $port,
                            Proto => 'udp')) {
      print "port: $port is open!\n";
   }