package Set;
sub import
{
  our $var = \$_[1];
}
1;