package Frick;

# this variable will have the full name $Frick::a;
#our makes the variable sharable between packages
our $a=10;
{
  package Frack;

  # This variable will have the full name $Frack::b;
  # my limits $Frack::b to the package Frack.
  # No other package will be able to see or use its value
  my $a=11;

   print "Frick says $Frick::a, Frack says $a, $Frack::a\n";
  #prints: frick says: 10, frack says: 11, 11;
}