Just use localtime:

my ($mday, $mon, $year, $wday) = (localtime)[3..6];
$mon  += 1;
$year += 1900;
[download]

Of course, this leaves you with a 4-digit year, but that's easy enough to fix:

$year =~ s/^\d\d//;
[download]

See perldoc -f localtime for more information.

Update: Modified to include $wday and perldoc reference.

If things get any worse, I'll have to ask you to stop helping me.