How check if remote port is open -perl
use IO::Socket::INET; # auto-flush on socket $| = 1; # creating a listening socket my $socket = new IO::Socket::INET ( LocalPort => '7766', Proto => 'udp', ); die "cannot create socket $!\n" unless $socket; while(1) { $socket->recv($data, 1024); print "received data: $data\n"; $data = "ok"; }








