Select Code to Download

my $f = Flub->new("Cheese is Good.");
print $f->flubble() . "\n";
$f->flubble("Cheese is Bad");
print $f->flubble() . "\n";

#!/usr/bin/perl -w

...
    $f->flubble() . "\n";
print "Trying to assign Cheese is Bad to \$f->{_flub}: " . 
    $f->flubble("Cheese is Bad ") . "\n";