You clould get around this with curlies:

our $bar;
{
  package Foo;
  $bar = 16;
  my  $foo = 15;
}

{
  package main;
  $bar =  = "bar\n";
  my  $foo = "foo\n";
  print "bar = $bar\n";
  print "foo = $foo\n";
}
[download]

Note that I may not have done what you meant to do with $bar
--Bob Niederman, http://bob-n.com