use strict;
use warnings;

my $var = 42;     # lexical var
our $van = 42;    # package var

{
   my $var = 10;
   local $van = 5;

   print "Var value =$var, Van value =$van\n";

} # Leaving block "resets" scoped variables                 

print "Var value =$var, Van value =$van\n";