% cat life.pl
#!/usr/bin/perl
# life.pl
use Reality;  # from tilly

while ($alive && !$rich) {
  $money = work();
  $taxes = 30 + rand 20;
  $money -= $taxes;
  pay($taxes);
}
die "Empty handed.";
__END__

% perl -c life.pl
Warning: The value of $rich is always false.

%