#!/usr/bin/perl

$test = 5;
print "start test: $test\n";

{
   my $test = 3;
   print "my test: $test\n";
   print_test();
}

{
   local $test = 8;
   print "local test: $test\n";
   print_test();
}

sub print_test{
   print "print_test: $test\n";
}