#!/usr/bin/perl -w
use strict;
my $foo  = 42;
our $bar = 21;
print "$foo, $bar, $main::bar\n";

{
    print "$foo, $bar, $main::bar\n";
    my $foo = 7;
    my $bar = 9;
    print "$foo, $bar, $main::bar\n";
}


##</code><code>##

#!/usr/bin/perl -w
use strict;
use Getopt::Declare;

# use vars '$foo';    # this will work
our $foo;             # this won't work

$foo = "Hello World\n";

my $spec = <<'EOS';
    -greet	 print a greeting
                 {print $foo}
EOS

my $opts = Getopt::Declare->new($spec);
__END__