Help for this page
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"