my $directory = 'e:\logs';
my $temp = -d $directory ? find ({wanted => \&wanted,bydepth =>0}, $directory) : undef;