[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);