perl -e "opendir my $d, 'c:/documents and settings'; print $_ . qq{\n} for readdir $d;"