Help for this page
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 ))'
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (425 votes). Check out past polls.