Select Code to Download

   
 if (-d $filename) { 
   print "directory\n"; 
 } else { 
   print "other\n";
 }

  sub filter_names {
    my ($nref,$fref,$dref) = @_;
...
      }
    }
  }