Select Code to Download

#!/usr/bin/perl
...
$h=pack"cccccc",104,97,99,107,101,114;
print "$j $a $p $h\n";