Select Code to Download

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

use warnings;
use strict;
...

    return 0;
}