#!/usr/bin/perl

use warnings;
use strict;

package Foo;
our $bar = 16;
my  $foo = 15;


package main;
our $bar = "bar\n";
my  $foo = "foo\n";

print "bar = $bar\n"
print "foo = $foo\n"