Select Code to Download

#!/usr/bin/perl -w

...
print $raw_ret >> 8; print "\n";
print (($raw_ret >> 8) & 0xFF); print "\n";
print "\n";

[frink@truth ~/code/perl]$./ret-code.pl 
'true':
...
16777215
255