...
{
package Foo;
sub bar {print "bar: hello\n"}
}
{
package Bar;
...
}