my $h    = $sha1->b64digest;
my $rev  = "$lines.$bytes.$h"; $rev =~ tr/$/_/;
my $date = strftime('%Y-%m-%d %H:%M:%S UTC', gmtime($mtime));