use constant {
  BLEND    => "very cheap",
  STRENGTH => "very strong"
};

my $coffee_pot = Coffee::Pot->brew(BLEND, STRENGTH);
stare( @wall ) until $coffee->is_ready;
CUP: 
while(groggy()) {
  get($cup) and $coffee_pot->pour($cup);
  $cup->add("sugar", "milk");
  stir($cup);
  push(@mouth, $cup);
  drink($cup);
  last CUP if (awake() || late_for_work());
}