#!/usr/bin/perl

print "File Scope\n\n";

$package = 'package';

print "$package\n";

{

  print "\nBlock Scope\n\n";

  local $package = 'abc';
  print "$package\n";

}

print "\nFile Scope\n\n";

print "$package\n";

local_test();

sub local_test
{

  local $test = 1;

  $test

}

print "\nfactorial(5): ", factorial(5), "\n";

sub factorial
{

  local $factorial = shift;

  return $factorial *= $factorial == 1 ? $factorial : factorial($factorial - 1);

}

#  {
#
#    local $/ = undef; # Enable "slurp" mode.
#    $template = <TEMPLATE>;
#
#  }