$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;
}