opendir(DIR,$logdir);
my @cfiles=grep(/\w/,readdir(DIR));
close(DIR);