$targetDirFull = 'C:\target\';

##</code><code>##

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

##</code><code>##

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