I think you'll probably want something like:

  my ($month, $year) = (localtime())[4,5];
[download]

You may want to fix the offsets afterwards of course.

/J\