# Foo.pm
package Foo;
sub import {
    strict->import;
}

# script
use Foo;
$yup = 5; # bang! (Global symbol "$yup" requires explicit...)

##</code><code>##

# Foo.pm
package Foo;
sub import {
    my $caller = caller;
    eval "package $caller; use Data::Dumper;";
}

# script
use Foo;
print Dumper(\@ARGV); # $VAR1 = ...