package Foo;

  sub bar {
    print "Inside the package, I am called 'bar'\n";
    print "But outside the package, I am called Foo::bar\n";
  }