package Encapsulated;
my(%objects) = ();

sub new
{
   my $proto = shift;
   $proto = ref($proto) || $proto;
    my $junk;
    my $me = bless(\$junk, $proto);
    $objects{$me}{property} = 'something';
    return $me;
}