package Foo;

sub new
{
    bless {}, __PACKAGE__;
}   

package Bar;

use vars qw( @ISA );

@ISA = 'Foo';

package main;

my $bar = Bar->new();
print "Bar is a ", ref $bar, "\n";