package Foo;

sub new {
    my $class = shift;

    return bless {}, $class;
}

package Foo::Bar;

use base 'Foo';

package main;

use Foo::Bar;

my $foobar = Foo::Bar->new;