package Gotcha;

sub bar {
  print "Didn't think you would go here, huh?\n";
}

package Foo;

sub bar {
  print "This is what you probably thought would happen?\n";
}

package main;

sub Foo {
  "Gotcha";
}

Foo->bar();
Foo::->bar();