You want your epitaph to say:

#!/usr/bin/perl -w
use strict;
my @life = qw 'birth starting middle ending death';
foreach my $part (@life){
    if($part ne 'death'){
        print "Have fun, Code perl!\n";
    }
    else{
        die "There's nothing left to code...\n";
    }
}
[download]

--xPhase

PS - Obfu or even more compact code would work as well, but I went for pure readability.