A little short, so I added some extra.

#/!usr/bin/perl


my ($potential, $abilities) = (100, 0);
while ($abilities < $potential) {
   $abilities++;   # use perl monks; use books;
}
$life=qq(Eternal\)\;
use PerlMonks;
use Books;
my $time = PerlMonks->new;
my $money= Books->new;);
if($time and $money = 0){
    die;
}else{
    goto PerlMonks && buy(books);
}
[download]

Hope it works :)

Almost a Perl hacker.
Dave AKA damian
I encourage you to email me