sub print_name_if_dir { my $file = $_; print $file if -d $file; }