Either use the full path instead of ".", or use Cwd (current working directory) to find the full path of ".":

find(\&print_name, "c:/path/to/wherever");
#or
use Cwd;
find(\&print_name, cwd);
[download]