perl 完成 linux md5sum

#!/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;