Fix corpse age check
Perl sucks sometimes