#! perl -sw
use strict;
use Digest::MD5 qw[ md5_hex ];
use IO::Socket;

$/ = $\ = chr( 13 ) . chr( 10 );

my $server = IO::Socket::INET->new(
    'localhost:1234'
) or die $^E;

my %files= split ' ', <$server>;
my $result = 'PASSED';

for my $file ( keys %files ) {
    open my $fh, '<:raw', $file or warn "$_ : $!";
    my $md5 = md5_hex( do{ local $/; <$fh> } );
    warn "$file: $md5 eq $files{ $file }\n";
    next if $md5 eq $files{ $file };
    $result = 'FAILED';
    last;
}

printf $server "$result\cM\cJ";
print scalar <$server>;
close $server;

__END__
junk67.pl: c9c8f25e0d4263a253f45d63b18fb062 eq c9c8f25e0d4263a253f45d63b18fb062
CPtest.pl: 103017b3f98578db15060a31316087e7 eq 103017b3f98578db15060a31316087e7
junk2.pl: 5367ddba375163542c7197bfa355be88 eq 5367ddba375163542c7197bfa355be88
789655-2.pl: c6b1a7367b57bba6ae0e4556aeb1053c eq c6b1a7367b57bba6ae0e4556aeb1053c
burnCPU.pl: 0e8afcf32f03fa9382b1bce9b8a5646b eq 0e8afcf32f03fa9382b1bce9b8a5646b
815861.pl: cb37349c218e9cd6d4017dc32e436d72 eq cb37349c218e9cd6d4017dc32e436d72
junk33.pl: c298090e1bc7f8ec599c3b9bff08598e eq c298090e1bc7f8ec599c3b9bff08598e
MovingAves.pl: 98f1b81b1d9ee099b937982320a1f347 eq 98f1b81b1d9ee099b937982320a1f347
797136-b.pl: 02152b03bb0766e141da67739161f192 eq 02152b03bb0766e141da67739161f192
junk67.pl: c9c8f25e0d4263a253f45d63b18fb062 eq c9c8f25e0d4263a253f45d63b18fb062
817762verify.pl: f0a6b204112d7d8aa7df99e307890705 eq f0a6b204112d7d8aa7df99e307890705
CPtest.pl: 103017b3f98578db15060a31316087e7 eq 103017b3f98578db15060a31316087e7
DONE