下面方法输出相同
#!perl -w
use strict;use Digest::MD5;
use Digest::MD5 qw(md5_hex);
print "Digest is ", md5_hex("01232131231fddfsd"), "\n";
my $md5 = Digest::MD5->new;
my $Line = "01232131231fddfsd";
$md5->add($Line);
print "$Line: ", $md5->clone->hexdigest, "\n";
print $md5->hexdigest, "\n";
$Line = "01232131231fddfsd1";
$md5->add($Line);
print "$Line: ", $md5->clone->hexdigest, "\n";
print $md5->hexdigest, "\n";