in reply to Re: MD 5 hash comparison/checker
in thread MD 5 hash comparison/checker

for (;;) { defined(read($fh1, my $buf1='', 4096)) or die $!; defined(read($fh2, my $buf2='', 4096)) or die $!; if ($buf1 ne $buf2) { print("Different\n"); exit(1); } last if !length($buf1); }

Why not File::Compare?