$ perl -MFile::Util -e 'print join "\n", File::Util->new->list_dir("C:/book", qw( --no-fsdots --with-paths ))' 

C:/book/Generic_User_Guide.pdf
C:/book/Quick_Guide.pdf