opendir(DIR, "log");
my @logs=grep{!/^\.+?/i} readdir(DIR);
closedir(DIR);
foreach my $sub (@logs){
opendir(DIR, 'log'.$sub) or die "FATAL EPIC ERROR";
my @sub_logs = grep{!/^\.+?/i} readdir(DIR);
print "LOG: $sub\n";
foreach my $subsub (@sub_logs)
{
print "\t$subsub";
}
close DIR;
}