opendir FOLDERS, $path or die "opendir $path - $!";
for ( grep /[a-z]/, readdir FOLDERS )
{
    my $st = stat( $path.$_ );
    my $mode = $st->mode;
    print $mode;
}
closedir FOLDERS;