#!usr/bin/perl
use warnings;
use strict;


our $x = 1;  #a package variable

{
   print "$x\n";  #prints 1
   local $x = 99;
   print "$x\n";  #prints 99
}

print "$x\n";  #prints 1, back to before the "local"