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

...

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