Select Code to Download

$ perl -e 'use Digest::MD5; print Digest::MD5->new->md5_hex("foobarbaz
+")
,$/'
...
+----------------------------------+
| 6df23dc03f9b54cc38a0fc1483df6e21 |
+----------------------------------+

    use Digest::MD5;
    
...
    $md5->add('foo', 'bar');
    $md5->add('baz');
    $digest = $md5->hexdigest;

sub create_checksum {

...
    my $cs = $ctx->hexdigest();
    return $cs;
}

$ perl -e 'use Digest::MD5; my $x= Digest::MD5->new; $x->add("foobarba
+z"); 
print $x->hexdigest,$/'
6df23dc03f9b54cc38a0fc1483df6e21