Select Code to Download

require Encode;
use Digest::MD5 qw(md5 md5_hex md5_base64);
...
 my $digest = $ctx->b64digest;
 print "digest:", $digest;
}

use strict;
use warnings;
...
  print $file, $digest, "\n";
  close(I);
}