#!/usr/bin/perl -w
#author:jevons zeng
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $md5file="acquisition";
open FH,$md5file or die("can't not open acquisition\n");
print md5_hex(<FH>);
close FH;
#!/usr/bin/perl -w
#author:jevons zeng
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $md5file="acquisition";
open FH,$md5file or die("can't not open acquisition\n");
print md5_hex(<FH>);
close FH;