sub main::global {
  print "this isn't quite global\n";
}

::global();
{
  package foo;
  ::global();
}

__output__

this isn't quite global
this isn't quite global