Perl Create MD5

Read the document: After HTTP://SEARCH.CPAN.ORG/~GAAS/DIGEST-MD5-2.39/MD5.PM,

Very useful Chapter paragraph:

This is useful if calculating checksum for files:

    Use DIGEST::MD5;

    My $file = Shift | | "/ETC/PASSWD";
    Open (FILE, $file) or die "Can ' t Open ' $file ': $!";
    Binmode (FILE);

    $MD 5 = digest::md5->new;
    while (<FILE>) {
        $md 5->add ($_);
    }
    Close (FILE);
    Print $md 5->b64digest, "$file/n";

Or we can use the AddFile method for more efficient reading of the file:

    Use DIGEST::MD5;

    My $file = Shift | | "/ETC/PASSWD";
    Open (FILE, $file) or die "Can ' t Open ' $file ': $!";
    Binmode (FILE);

    Print Digest::md5->new->addfile (*file)->hexdigest, "$file/n";