sub new {
   my ($class, $args) = @_;
   bless { beverage => $args->{beverage} || "Pepsi",
           entree => $args->{entree} || "soup",
           dessert => $args->{dessert} || "ice cream",
         }, $class;
}