package Foo;

our $a = "a";
our $b = "b";

sub import
{
        my ($self) = @_;
        my ($caller_package) = caller;

        foreach (keys %{"${self}::"})
        {
                *{"${caller_package}::$_"} = *$_;
        }
}