Select Code to Download

    $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";

   print $sock_w "test 01234 $test";

...
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