[duelafn ~]$ wc corpse-2.pl 
  7  35 212 corpse-2.pl
[duelafn ~]$ md5sum corpse-2.pl 
4e92ccfcbfc69686bb1687824efc0733  corpse-2.pl
[duelafn ~]$ tail -n2 corpse-2.pl
say $c;
my %h = (split /\s+/, $c);


##</code><code>##

[duelafn]$ wc corpse-4.pl
  9  32 187 corpse-4.pl
[duelafn]$ md5sum corpse-4.pl
054c44f5cb2460eae1b1107ae31fd6e9  corpse-4.pl
[duelafn]$ tail -n4 corpse-4.pl | head -n1
  burn($fat);