package main;

use strict;
use warnings;

our $var = 200;
my  $var = 100;

print $var, "\n";
print $main::var, "\n";