Methinks that brother demerphq has the right idea, but an unnecessarily restrictive namespace: I'd prefer something like this:

• Caffeine
• Beverage
• Hot
• Cold
• Intravenous
• Foodstuff
• Mint
• Bean
• Tablet

So with that namespace in mind:

connect(Caffeine::Beverage::Intravenous->new(
          "type"     => "coffee",
          "roast"    => "light",
          "strength" => "demitasse"),
        $monks{"FoxtrotUniform"})
  or warn "Matt's going to be grumpy: $!\n";
[download]

--
:wq