use coffee;
my $mug = new coffee;
while ()
   {
   while (!$mug->empty())
      {
      slurp($mug;)
      }
   $mug->getmorecoffee or die();
   }