my $object = Bar->new; $Package = ref $object;