perl -we '$x = "global"; my $x = "local"; our $x; print $x'
global