use strict;
use warnings;

package Foo;

sub bar { print "Foo::bar\n"; }

package Bar;

sub bar { print "Bar::bar\n"; }

package main;

sub Foo { "Bar" }

Foo->bar();
"Foo"->bar();

exit 0;

__END__