Select Code to Download

use Time::HiRes qw( time );

...
   print LOG "[$localtime.$mili] $log : @data \n";
   close LOG or die "Cannot close log file:: $log : $!\n";
}