Select Code to Download

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

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

$to->send( $binData );

 binmode Socket, ":raw";