Select Code to Download

> /appl/cpc/devel/bin/perl -v

...

> /appl/cpc/devel/bin/perl -e '$a = pack("C*", 0x7f..0x81); for ( $i =
+ 0; $i < length($a); ++$i ) { print ord(substr($a, $i, 1)) . " " }; p
+rint "\n"'
127 128 129