package Pack;
my $foo = 'pack';

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

1;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Pack;

print "$foo\n";