#!/usr/bin/perl
use warnings;
use strict;

if(-e '.sumlog'){
        open (FILE, '.sumlog');
        my @records =<FILE>;

        foreach my $record(@records){
                chomp($record);
                my @arty = split('::',$record);

                open(MD5, "md5sum $arty[1] |");
                my $wyn = <MD5>;

                my @act = split('  ',$wyn);

                if ($act[0] eq $arty[0]){
                        print $arty[1]."... ok \n";
                } else {
                        print $arty[1]."... not ok \n";

                }
        }
} else {
        open (FILE, '>>.sumlog');
        open (COMM, "md5sum /etc/ssh/sshd_config |");

        my @comm = split(' ', <COMM>);
        print FILE $comm[0].'::'.$comm[1];

        print "Write checksum::patch to file in .sumlog\n";
}