#!/usr/local/bin/perl
$MD5SUM="/usr/local/bin/md5sum";

if (!@ARGV) {
	die "What file should be used for md5sum comparisons?\n";
}
$LIST = $ARGV[0];

open(LIST,"<$LIST");
@lines = <LIST>;
close(LIST);
open(MD5,"$MD5SUM -c $LIST |");
while (<MD5>) {
	($file,$what) = split(/:/,$_);
	if ($what =~ /FAILED/) {
		print "$file: UPDATED\n";
		@lines = grep(!/^[^ ]*\s+${file}$/,@lines);
		push(@lines,`$MD5SUM ${file}`);
	}
}
close(MD5);
open(LIST,">$LIST");
print LIST @lines;
close(LIST);