Help for this page

Select Code to Download

Select or download this

    use strict;
    $main::foo = 1;
...
    }
    # print $foo, "\n";
    print $main::foo, "\n";