:) And what about dying?

Dying();

sub Dying {
    die "Oops! He's dead...\n";
}
[download]