X:\>perl -MFile::Find -le "sub process_file{print $File::Find::name if -f };find (\&process_file,'test with whitespace')"