$sock_r = IO::Socket::INET->new(Proto     => "udp")
                 or die "can't connect socket to port: $!";

    $host_port = $sock_r->sockport;
    print "Listening on host_port $host_port\n";

##</code><code>##

   print $sock_w "test 01234 $test";

00 08 74 4A 64 A0 00 02 FD B1 41 C2 08 00 45 00 ..tJd.....A...E.
00 28 A7 6B 40 00 3D 11 4F A1 BA 01 EE B0 BA 01 .(.k@.=.O.......
E4 04 80 02 14 20 00 14 98 46 74 65 73 74 20 30 ..... ...Ftest 0
31 32 33 34 20 34                               1234 4