completely unrelated to your problem, but this:

my $t = time;
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
+ $yday, my $isdst)=localtime($t);
$year = $year + "1900";
[download]

can be replaced with:

my $year = (localtime)[5] + 1900;
[download]

Since you are only using the year, there is no need to declare all those extra variables.