Select Code to Download

#! perl -slw
use strict;
...

print $index "$file : ", $fullmd5->hexdigest;
close $index;

#! perl -slw
use strict;
...

print "File: $outfile reconstructed. The md5s ",
    ( $md5 eq $fullmd5->hexdigest ) ? 'match' : 'do not match';