Select Code to Download

use File::Find;

...
        print "$ltotal $File::Find::name\n";
    }
}

1 /home/tomdlux/tmp
2 /home/tomdlux/Tech/Perl/tmp
...
6 /var/tmp

Found a total of 6 instances.