Select Code to Download

package Bubba;

...
sub shout { print "Fried shrimp\n" }

1;

#!/usr/bin/perl -w

...

my $bw = Bubba::Wump->new();
$bw->shout;

  # ./summon_bubba.pl
  Boiled shrimp
  Fried shrimp
  Boiled shrimp
  Fried shrimp