Select Code to Download

$targetDirFull = 'C:\target\';

unless( chdir('C:\\') ) { print "Error 1..\n" ;}
else { chdir('C:\\'); }
...
       print "creating directory \"Target\"...\n";
       mkdir('Target',0777);
}

unless(readdir(ORIG)) {
    print "Error 2";     ## not a very informative report!
}
else {
   ...