Undefined subroutine &main::find called at test.pl


use FILE::Find;
use warnings;

find ( \&wanted, $directory);
sub wanted{ print $File::File::dir; }