C:\temp>wc corpse-3.pl
      6      23     142 corpse-3.pl

C:\temp>md5sum corpse-3.pl
773de225d9053be5e311d9a4ed54bc43 *corpse-3.pl

C:\temp>tail -n2 corpse-3.pl
    $c = trim("@tmp", $lastlen) or last;
}