package Mod2;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(subr); # Exported by default

sub import { 
    print "import() was called with arguments : @_\n"; 

    my $my_arg = pop @_;
        # i have to pop(), 
        # because export_to_level() doesn't want to see $my_arg
    print "my arg: $my_arg\n";

    Mod2->export_to_level(1, @_);
}

sub subr { return "subr() was called\n"; }
1;