sub job {
 my $work=new Job::Task(Difficulty => 'Impossible',
            Deadline => 'Yesterday',
            Team => ['me']);
 my $self=new Geek(Feeling => 'tired',
           Caffiene => 0);
 if($self) {
    $self->brain("FRIED");
    if(!$work) { sleep; }
    else { 
     $work->harder 
            until (($work->State() eq 'done') || !$self->find("MT Dew"
+)); 
    }
    if(($work->State() eq 'done') && $self->alive()) {
        &job;
    }
    else { die; }    
 }
 
}
[download]

another quickie thrown together after my head hurt at work..
lemme know what you think of it..

-brad..