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);
}