package main;

use strict;
use warnings;

my  $lexical = 100;
our $global  = 200;

print $main::global, "\n";
print $main::lexical, "\n";