Advanced pack() programming in 24 seconds

< ^ >

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';