my $port = 54321;

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

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