package main;

use strict;

$main::var = 1;
#$var = 1;              # Error!

{
   $main::var++;
   #$var++;             # Error!
   our $var;            # Disable "strict vars" for $var.
   $var++;              # Same as "$main::var++;"
}                       # "strict vars" is back on for $var.

{
   $main::var++;
   #$var++;             # Error!
   no strict 'vars';    # Disable "strict vars" for all vars.
   $var++;              # Same as "$main::var++;"
}                       # "strict vars" is back on for all vars.

print("$main::var\n");  # Prints 5.
#print("$var\n");       # Error!