Unrelated to your problem...

You can simplify the following:

my($day, $month, $year) = (localtime)[3,4,5];
$month = sprintf '%02d', $month+1;
$day   = sprintf '%02d', $day;
$year = $year+1900;
$ymd = "$year-$month-$day";
[download]

using the Core POSIX module:

use POSIX qw(strftime);
my $ymd = strftime('%Y-%m-%d', localtime);
[download]

Please change your "pre" tags to "code" tags.