The main issue is that Perl is case sensitive and that the module is actually File::Find. On a case insensitive file system you get weird results such as this because the module file gets found despite the error in the file name case, but the package isn't found.

Note that you need $File::Find::dir to access the dir variable too. This should have been caught with warnings - you'd have gotten:

Name "File::File::dir" used only once: possible typo at noname.pl line
+ 12.
[download]

when you ran the script.

Heya bgreg,

You've managed to capitalize the File in FILE::Find.

Try this instead:

use strict;
use warnings;
use File::Find;

... etc.
[download]

Oh and BTW, make sure you use strict too!

Welcome to Perl and Perlmonks!

Also, not all modules export their subroutines. I have no idea if File::Find does(and I'm too lazy to check), so you might have to do one of the following:

#These statements are equivalent
use File::Find qw( find );
use File::Find 'find';
[download]

If I'm interested in knowing where stuff comes from I do exactly the opposite:

use File::Find qw();

...

File::Find::find(...);
[download]

By the time I'm a few dozen lines away from the top of the file I've probably completely forgotten where find() came from. A sometimes other benefit of being explicit is that if there is a 'find' in several different modules that are in use then it is clear which one is wanted.

True laziness is hard work