Help for this page
Select Code to Download
Select
or
download this
package Foo; use vars qw( $foo ); $foo = 3;
Select
or
download this
use Foo; print $Foo::foo;