#perl -w

use strict;
use diagnostics;

use File::Glob qw(:globally :nocase);

my $log = 'indexlist.ccr';

open(LOG, $log) or die "Could not open $log because $!\n";

my @list = <*index.ccr>;

print LOG join("\n", @list) . "\n";

close(LOG);