Select Code to Download

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

...
To start, $year is 2003
We change $year to 2002
And now, $year is 2002