#!/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";
}