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