I haven't looked through the whole program yet, but you appear to do this:

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = loc
+altime();
   $mon += 1;
   $year += 1900;
   my $timestamp = sprintf( "%04d%02d%02d %02d:%02d:%02d", $year, $mon
+, $mday, $hour, $min, $sec );
[download]

quite a bit. Use strftime() instead.

use POSIX qw(strftime);
my $ts = strftime("%Y%m%d %H:%M:%S", localtime);
[download]