if ($coffee_pot->low()) {
  $self->drink($coffee_pot->bottom);
  $coffee_pot->brew_fresh();
}

if ($shift eq "slow") {
  $self->read("Programming Perl");
  $self->swear("I'm getting out of this hole someday.");
}