use base qw(Boo Foo Bar);
use strict;
use warnings;

my $m = bless{};

$m->whois; # Boo