OT

This comment is unrelated to your question but I'd like to point out that unless you really need to use those individual vars used in creating your $temp_date later in the script, you could simplify that by using the strftime function from the POSIX module.

my $ms = (gettimeofday())[1];
$ms = ($ms-($ms%1000))/1000;

my $temp_date = strftime("%Y-%m-%d %H:%M:%S.$ms", localtime);
[download]