my $socket = IO::Socket::INET->new(
    Proto     => 'udp',
    LocalAddr => '127.0.0.1'
);

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

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