#!/usr/bin/env perl                                                                                                                            
use strict;
use warnings;

package Foo;
{
my $package = __PACKAGE__;

sub new {
    return bless {'PACKAGE'=>$package}
}

}
package Bar;
{

my $package = __PACKAGE__;

sub new {
    return bless {'PACKAGE'=>$package}
}

}

package main;

my $foo = Foo->new;
my $bar = Bar->new;
print $foo->{'PACKAGE'};
print qq|\n\n|;
print $bar->{'PACKAGE'};