Help for this page
if (-d $filename) { print "directory\n"; } else { print "other\n"; }
sub filter_names { my ($nref,$fref,$dref) = @_; ... } } }