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