in reply to exporting vars

This will work, if you really need to do this:
BEGIN {require A1; import A;}

[download]

In Section Seekers of Perl Wisdom