Select Code to Download

use File::Util;
my $f = File::Util->new(); 
my @files = $f->list_dir( "C:\\book", qw( --no-fsdots --with-paths ) )
+;

$ 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