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

##</code><code>##

use File::Find;
print "Enter your root directory\n";
$root = <STDIN> ;

sub process_file{
print $File::Find::name if -f ;
}
find (\&process_file,$root);

##</code><code>##

%> a.pl
Enter your root directory:
D:\DBS
%> Can't state D:\DBS