#!/usr/local/bin/perl
print  __PACKAGE__ ;
print "\n";
$a=10;
{
  $a=11;
  print $a,"\n";
  print  __PACKAGE__ ;
}