$s = ''; $s .= chr( $_ ) for  0 .. 255;;

$A = pack 'A*', $s;;

print $A cmp $s;;
0