sub foo::bar {print "bar\n";}
foreach $name (keys %foo::) { 
    $main::{$name} = $foo::{$name};
}
bar();