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


##</code><code>##


$binData = pack('N',length( $data ) ) . $data;

$to->send( $binData );


##</code><code>##


 binmode Socket, ":raw";