package MyPackage;
use Symbol qw( gensym );
...
sub import {
        MyPackage->export_to_level(1, @_);
}
sub open_file {
        my ($handle, $file) = @_;
        ${$handle} = gensym();
        open *${$handle}, $file || die;
        import(*${$handle}); # this apparently isn't working?
}