Help for this page

Select Code to Download

Select or download this

use Digest::MD5;
sub file_md5_hex {
...
    close $fh;
    return $md5->hexdigest;
}