package all;

sub import {
    shift;
    my $caller = caller();
    my $code = "package $caller; use " . join '; use ', @_;
    eval $code;
}
1;

##</code><code>##

use all qw[strict warnings Time::HiRes Data::Dumper List::Util];