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

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