print "copy $file, $archiveFileName\n";
copy ($file, "C:\\data\\app\\AppSpecific1\\Archive\\".$archiveFileName) or die "Copy failed: $!";