#!/usr/bin/perl
use strict;
use warnings;
our $var = 'foo';
sub test {
    my $var = 'bar';
    print $main::var, "\n";
    print "$var\n";
}
test();

##</code><code>##

foo
bar