Howver, the error codes are a bit screwy, and this seems like just the thing you'd want to automate.

.
.
.
   if ($t eq $hash) {
      print STDERR "Found it -> $_\n" 
      exit(0);
   }
}

exit(1);
[download]