package flog; sub foo { print "Foo bar quux\n"; } package flog::main; &foo;