package Bar;
use Foo;

sub new {
    return bless {}, shift;
}

my $foo = Foo->new();

1;