Select Code to Download

$to->send( pack 'n/a*', $binData );

...

$from->recv( my $len, 2 );
$from->recv( my $binData, unpack 'n', $len );

use Storable qw[ freeze ];;

...
  aaaw => "aaax",
  aaay => "aaaz",
}