send( SOCKET, pack("C*",@array), 0, $paddr )

##</code><code>##

@array= unpack( "C*", $packet );

##</code><code>##

$packet= pack "b*", join "", @array;
$packet= join "", map { pack "b8", $_ } @array;