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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    our $field;

##</code><code>##

    use strict;
    for ( 1 .. 3 ) { &doit }

    sub doit {
        our $foo;
        print ++$foo . "\n";
    }

##</code><code>##

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

##</code><code>##

    our ( $sql, $dbh );

    #later

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

##</code><code>##

    use strict;
    {
        use vars qw/ $foo /;
        $foo = "Ovid";
    }
    print $foo;

##</code><code>##

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

##</code><code>##

    use strict;
    my $foo = 'bar';

    &baz;

    sub baz {
        our $foo = 7;
        print $foo;
    }

    print $foo;