my $year = "08";
$year--;
print "Test1: $year\n";
print "Test2: ", sprintf( "%02d", %year),"\n";