this was inspired by actual events...

#!/usr/bin/perl

my ($fatigue,$blank_stare,$will) = @ARGV;

if (exists $me{$fatigue}) {
  require Caffeine;
  $fatigue--;
}

if ($fatigue>$will) {
  $blank_stare++
}

if (my $code=Bug->new){
  my $bug;
  while (-e $bug){
    -d $bug;
    use Caffiene;
    do WORK;
  }
  
  undef $bug;
  goto HOME;
  sleep;
}
[download]

Note: This would compile if Caffeine.pm and Bug.pm existed.

And there should be a Caffeine.pm ....