package Foo;

sub bar { print "Bar\n" };

package main;

Foo::bar();