package Bar;

our $package_var;

sub new {
   my $class = shift;
   my $self = {};
   bless $self, $class;
   $self->{'unqualified'} = $package_var;
   $self->{'qualified'} = $Bar::package_var;

   $self->{'unqualified_ref'} = \$package_var;
   $self->{'qualified_ref'} = \$Bar::package_var;
   
   return $self;
}

1;