package BB;

sub print {
        my ($self,$arg) = @_;
        print "I'm BB saying: $arg\n";
}

1;