#!/usr/bin/perl -w

use strict;
use Bubba;

my $b = Bubba->new();
$b->shout;

my $g = Bubba->new(type => 'Wump');
$g->shout;

my $bg = Bubba::Gump->new();
$bg->shout;

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