Help for this page
&scandir("c:/mydocu~1");
sub scandir { ... chdir($workdir) || print "Unable to change to $workdir: $!\n";