Select Code to Download

use strict;
use File::Copy;
...
        print "COPYING FILE:$qa_dir$all_qa_files\t to $qa_new_dir$all_
+qa_files\n";
        disable diagnostics;
}

CREATED NEW ARCHIVE DIR:V:\dblomber\auth20060221\:
OPENED V:\dblomber\authqa\
...
Uncaught exception from user code:
        copy Failed:  at T:\My Documents\perl\release.pl line 37.
 at T:\My Documents\perl\release.pl line 37

CREATED NEW ARCHIVE DIR:V:\dblomber\auth20060221\:
OPENED V:\dblomber\authqa\
...
COPYING FILE:V:\dblomber\authqa\sample.doc       to V:\dblomber\auth20
+060221\sample.doc
FINISHED COPYING FILES
CLOSED V:\dblomber\authqa\