Select Code to Download

my $foo = new Foo("bar");

...
    my $var = shift;
    bless \$var, $class;
}

---------(In Foo.pm)------------------
package Foo;
...
use Foo qw(bar);  # Sets $Foo::var to "bar"
#...
$Foo::var = "baz"; # Changes $Foo::var to "baz"