my $self = new me_myself_and_i ();

while (8 << $hour << 17)
{
   $self->bored += 1 unless ($work);
   if ($self->bored)
   {
      &nothing;
   }
   else
   {
      do
      {
         &task;
      } while ($work ne "complete")
   }
}

sub nothing
{
   print "It's time for Joe Cartoon!";
}

sub task
{
   print "Work";
}

Don't laugh. It's my first try at this!

Blessed are those who follow the ways of Perl.
~Michael D. Stemle, Jr.