---------(In Foo.pm)------------------
package Foo;
sub import {
    $Foo::var = shift;
}