Chapter 2. Putting it all together:
open Japh,">Just_Another_Perl_Hacker.xls" and binmode Japh;
$/= pack "C2v2V2VdC2V2v", 9,8,8,5,16,0,10,0,4,2,32,0,24;
$\= pack "V", +1 +1 +1 +1 +1 +1 +1 +1 +1 +1;
print Japh $/. 'Just Another Perl Hacker';