Instead of

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

(which can be written as

my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = l
+ocaltime(time);
[download]

) under Time::localtime you should use

my $localtime = localtime(time);
my $sec = $localtime->sec;
my $min = $localtime->min;
[download]

etc.