You could always reference $main::foo et al, but you'd have to use our $foo in main rather than my (lexicals not living in the symbol table and all).

But yeah, not a good idea. Action at a distance, and what not.