Thank you All so much!!

Adding "LocalAddr" was all I needed and now $sock_r->sockport returns the listening port.

Sending $hex hi thru my write socket is exactly what I need!

    
# results in "4567" in datagram trace - WINNER!!
my $hex_hi  = pack("H*", "4567");
[download]