Help for this page

Select Code to Download

Select or download this

# main scope
$fred = 1; #global
...
        print $main::fred; # prints the global 1
    }
}