There's really no need to use date to get the date information - it's slower and you're introducing platform dependencies for no good reason.

You can do it with Perl built-ins like this:

my ($d, $m, $y) = (localtime)[3 .. 5];
++$m;
$y += 1900;
$date = "$m$d$y";
[download]

or, if that looks a little complex, use POSIX::strftime like this:

use POSIX 'strftime';

$date = strftime('%m%d%y', localtime);
[download]

You might also consider using a different naming scheme. Dates in the form MMDDYYYY are illogical and will confuse non-Americans. Why not use the ISO standard of YYYY-MM-DD?

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me