--- psinib.pl	2003/07/15 17:40:32	1.9
+++ psinib.pl	2003/07/15 17:41:45	1.10
@@ -503,7 +503,7 @@
 	foreach my $f (sort { $file_md5{$a} cmp $file_md5{$b} } keys %file_md5) {
 		my $dir = dirname($f);
 		my $file = basename($f);
-print "$f -- $dir / $file<--\n";
+#print "$f -- $dir / $file<--\n";
 		if ($dir ne $last_dir) {
 			close($md5) if ($md5);
 			open($md5, ">> $bc/$dir/.md5sum") || warn "can't create $bc/$dir/.md5sum: $!";