---------(In Foo.pm)------------------
package Foo;
sub import {
    $Foo::var = shift;
}
---------(In a different file)--------
use Foo qw(bar);  # Sets $Foo::var to "bar"
#...
$Foo::var = "baz"; # Changes $Foo::var to "baz"