use File::Find;
find (\&ProcessDirTree, './_NewExtensionTemplate');

sub ProcessDirTree
{
print "Dir: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}