Golf:

#        1         2
#2345678901234567890
print"$^F$[$[$^F"
[download]

Of course die would be cheaper but I'll assume we ONLY want "2002" ;-)
Geesh, how unoriginal! I should really read the entire root node before posting the first thing that comes to mind!

Silly, and for a limited time only:

@foo = split' ',scalar localtime;
$bar = pop @foo;
print ++$bar;
[download]

--
I'd like to be able to assign to an luser