sub foo::bar {print "bar\n";} %main:: = (%main::, %foo::); bar();