package all;

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