#! /usr/local/bin/perl -w

use strict;

my $hero="Batman";
my $car="Pinto";
my $year=sprintf("%04d", (localtime)[5]+1900);

BLOCK0:{ print "In the first block, \$hero is $hero and \$car is $car.\n"; }
BLOCK1:{ my $hero="Superman";my $car="Porsche";print "In next code block \$hero is $hero and \$car is $car.\n"; }
BLOCK2:{ print "In next code block, \$hero is $hero and  \$car is $car.\n"; }
BLOCK3:{ print "To start, \$year is $year\n";}
BLOCK4:{ my $year=--$year; print "We change \$year to $year\n"; }
BLOCK5:{ print "And now, \$year is $year\n"; }

__DATA__

In the first block, $hero is Batman and $car is Pinto.
In next code block $hero is Superman and $car is Porsche.
In next code block, $hero is Batman and  $car is Pinto.
To start, $year is 2003
We change $year to 2002
And now, $year is 2002