Index: /tags/ipp-20150312/ippScripts/scripts/rawcheck.pl
===================================================================
--- /tags/ipp-20150312/ippScripts/scripts/rawcheck.pl	(revision 39933)
+++ /tags/ipp-20150312/ippScripts/scripts/rawcheck.pl	(revision 39934)
@@ -396,5 +396,5 @@
     $host =~ s/\.\d//;
 #    print "$filename $host $volume\n";
-    my $response = `ssh $host md5sum $filename`;
+    my $response = `ssh $host remote_md5sum.pl $filename`;
     chomp($response);
     my ($sum, undef) = split /\s+/, $response;
Index: /tags/ipp-20150312/ippScripts/scripts/remote_md5sum.pl
===================================================================
--- /tags/ipp-20150312/ippScripts/scripts/remote_md5sum.pl	(revision 39934)
+++ /tags/ipp-20150312/ippScripts/scripts/remote_md5sum.pl	(revision 39934)
@@ -0,0 +1,30 @@
+#! /usr/bin/env perl
+
+use warnings;
+use strict;
+
+#my $time = time();
+my $filename = shift(@ARGV);
+
+unless (defined($filename)) { 
+    die;
+}
+
+open(LA,"/proc/loadavg"); # possibly not portable.
+my $load = (split /\s+/, <LA>)[0];
+close(LA);
+
+if ($load > 30) {
+    my $sleep_dur = int($load - 8);
+    
+#    print STDERR "$load $sleep_dur $time\n";
+#    $time = time();
+#    print STDERR "$time\n";
+    sleep($sleep_dur);
+#    $time = time();
+#    print STDERR "RESUME $time\n";
+}
+my $response = `md5sum $filename`;
+print $response;
+#$time = time();
+#print STDERR "END $time\n";