Not excactly a poem, but...

[dna]

...
if ($time_spent_using_program > $time_spent_writing_program) {
    my $program = 'good';
}