my $LogDir = "/cygdrive/c/Users/anon/logs/png1/";
my $LogDir1 = "/cygdrive/c/Users/anon/logs/png2/apache/";
#Find relevant files
sub get_files {
    my (@dirs) = @_;
	my @dirss = join "", map {$LogDir . $_} @dirs;
	my @dirss1 = join "", map {$LogDir1 . $_} @dirs;
    my $level = shift // 3; # level to dig into
    my @files = File::Find::Rule->file()
    ->name( '*.bz2','*.log' ) #can insert regex too
    ->maxdepth($level)
    ->in(@dirss,@dirss1);
	#print @files;
    return @files;
}