Shell Programming and Scripting

my $sumInfo = `md5sum test.txt --quiet -c checkFile`

my $testfile = "test.txt";
my $checkfile = "checkFile";
die unless -f $testfile && -f $checkfile;
my $sumInfo = `md5sum $testfile --quiet -c $checkfile`;

md5sum test.txt

md5sum -c checkFile

#!/usr/bin/perl

# Author: Aia
# Date: 5-22-2014
# check_md5.pl
# reads a md5 hash file pair formatted file and checks its sum

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

my $md5_file = "test.md5";
my %groups;  


open my $fh_in, '<', $md5_file or die "Can't open $md5_file: $!\n";
while (my $line = <$fh_in>) {
    chomp $line;
    my ($key, $value) = split(" ", $line);
    $groups{$key} = $value;
}

close ($fh_in);

for my $key (keys %groups) {
    open my $fh, '<', $groups{$key} or die "Can't open $groups{$key}: $!\n";
    binmode ($fh);
    my $md5 = Digest::MD5->new;
    $md5->addfile($fh);
    close ($fh);
    if (  $key eq $md5->hexdigest ) {
        print "$groups{$key}: OK\n";
    }
    else {
        print "$groups{$key}: FAILED\n";
    }
}