#!/usr/bin/perl

$j;$a;$p;$h;
$j=pack"cccc",106,117,115,116;
$a=pack"ccccccc",97,110,111,116,104,101,114;
$p=pack"cccc",112,101,114,108;
$h=pack"cccccc",104,97,99,107,101,114;
print "$j $a $p $h\n";