Help for this page

Select Code to Download

Select or download this

use Time::HiRes qw(gettimeofday);
use POSIX qw(strftime);
...
# open the file.
open(ArchiveFH,">$ArchiveFile") or 
  die "failed to open ArchiveFile: $!";