C:\eclipse\test>perl -wle "my $dir = shift; warn 'Directory: $dir'; File::Find::
find({wanted => \&wanted}, $dir);"
Directory: $dir at -e line 1.
Undefined subroutine &File::Find::find called at -e line 1.