#!/usr/bin/perl -w

$mval = 127;
print "Start: mval is: $mval\n";
myvarset();
print "After myvarset(): mval is: $mval\n";
localvarset();
print "After localvarset(): mval is: $mval\n";

sub localvarset {
  local $mval = 512;
  print "Inside localvarset(): mval is: $mval\n";
  print "Call underneath() from localvarset(): ";
  underneath();

}

sub myvarset {
  my $mval = 256;
  print "Inside myvarset(): mval is: $mval\n";
  print "Call underneath() from myvarset(): ";
  underneath();
}

sub underneath {
  print "Inside underneath(): mval is $mval\n";
}