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