use Job;

my $Job = Job->load;
if ($Job->DESTROY) {
  my $NewJob = new Job;
  $NewJob->resume++ for keys %newBUZZwords;
  $NewJob->search($hi && $low) for @weeks;
  if ($NewJob->callBack == 1){
    $NewJob->interview("Suit" and tie());
    $NewJob->start;
    $NewJob->depositPayCheck until $NewJob->DESTROY;    
  }
  else{
  $newJob = undef;
  }
}
else {
$Job->work;
}
[download]

-silent11