package Pack;
my $foo = 'pack';

sub import {
    my $pkg = caller();
    no strict 'refs';
    *{ $caller . '::foo' } = \$foo;
}

1;