$fs->traverse('/foo')->filter( sub ($name, $dir) { $name !~ /^\./; } ); $fs->traverse('/foo')->filter( sub { $_[0] !~ /^\./; } );