123456789101112
my $dir = undef;if(opendir($dir, $folder)){ while(defined(my $file = readdir($dir))) { next if $file =~ /^\.\.?$/; next if -f "$folder/$file"; print "$folder/$file"; } closedir($dir);}