use File::Find; find(\&print_name_if_dir, "."); sub print_name_if_dir { print if -d; }