获得linux或freebsd下文件的md5

    chomp( my $uname = `uname` );
        my $md5_cmd = $uname eq "FreeBSD" ? "md5 -r " : "md5sum";
        my $get_md5_cmd = "$md5_cmd $file|awk '{print \$1}'";