my $donut = Donut::Filled->new (Filling => "Cherry");
$donut->add (Topping => "Hawaiian");

print $donut; # Should be "Cherry filling with Hawaiian topping"
              # Is now "Donut::Filled=HASH(0xXXXXXXXX)"

##</code><code>##

print "Your order is for $count donuts which are specified with $donut<BR><BR>\n";

##</code><code>##

print "Your order is for $count donuts which are specified with "
.$donut->printed()."<BR><BR>\n";