Help for this page
#!/usr/bin/perl use strict; ... print "Directory: $File::Find::name\n" if -d; print "File: $File::Find::name\n" unless -d; }