# This is a quick script to read a file generated with
#     find . -iname *.cnt -print
# and show duplicate cnt files.
#
#



open(IN, "cnt.lst") || die "can't open cnt.lst";

while (<IN>)
{
   m#^\./((\w+/)+)(\w+\.cnt)$#;
   # print "$1 $2 $3\n";
   $tmp = $cnt{$3}; #null string the first time around.
   $cnt{$3} = "$tmp $1";
}

@keys = keys(%cnt);

for $key (sort(@keys))
{
   print "$key \t$cnt{$key}\n";
}