Perhaps Grooks ("short, rhymed epigrams" by the Dane, Piet Hein) might well translate well into Perl.

Here's a first version of one of them.

$budgeting = <<GROOK;

BUDGETING: THE FIRST LAW
by Piet Hein (in Still More Grooks, 1970)
(translated into Perl by Osfameron - hakim\@earthling.net).

If you want to know
where your money went,
you must spend it quickly
before it's spent.
GROOK

$money = 100;
if ($money ? do {want_to_know} : $where_it_went) {

 while (do { you_can} ) { 
     spend(\$money, "quickly");
 } 
}
sub spend { 
    my ($money, $how_to_spend) = @_; 
    die "$budgeting" if $$money  <= 0;
    $$money-= $how_to_spend eq "quickly" ? 10 : 1;
}
[download]

cheerio,
Osfameron