Select Code to Download

 
my $port = 54321;

...
);

die "Unable to bind to 127.0.0.1:$port: $!\n" unless $socket;

my $socket = IO::Socket::INET->new(
    Proto     => 'udp',
...

my $port=$socket->sockport (); 
print 'on:'.$port."\n";