I had the same problem not knowing another option I wrote a small function to tell if it is a directory or not given the dir() output.

sub is_dir
{                                                                     
+                                                        
  my @list = split(//, $_);
if( $list[0] eq 'd' )
  {
  return 1;
  }
else
 {
  return 0;
 }                                                                    
+                                                         
}
[download]

Worked for me. Let me let me know if there is a better way.