Select Code to Download

package Foo;

...
    our $var;
    print "still the same variable using short name is $var\n";
}