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

##</code><code>##

Q:\>dir "test with whitespace"
 Datenträger in Laufwerk Q: ist homes_xxxxxxxx$
 Volumeseriennummer: DEAD-BEEF

 Verzeichnis von Q:\test with whitespace

17.09.2007  11:12    <DIR>          .
17.09.2007  10:10    <DIR>          ..
17.09.2007  11:12                 0 a file.txt