Select Code to Download

    $main::foo;
    $CGI::POST_MAX;
    @foo::bar;

    my $foo;
    my $POST_MAX;
    my @bar;

    Global symbol "$foo" requires explicit package name at C:\test.pl 
+line 2.

    package foo;
    use strict;
    our $bar;   # These are the same
    $foo::bar;  # These are the same

    our $field;

    use strict;
    for ( 1 .. 3 ) { &doit }
...
        our $foo;
        print ++$foo . "\n";
    }

    $main::sql = $order->lineItemSQL;
    $main::dbh->prepare( $main::sql );

    our ( $sql, $dbh );

...

    $sql = $order->lineItemSQL;
    $dbh->prepare( $sql );

    use strict;
    {
...
        $foo = "Ovid";
    }
    print $foo;

    use strict;
    {
...
        $foo = "Ovid";
    }
    print $main::foo;

    use strict;
    my $foo = 'bar';
...
    }

    print $foo;