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)"