for my $file (@bad_files) {
	(my $volume, my $SrcDir_part, my $SrcPattern) = File::Spec->splitpath($file);
	my $outdir=File::Spec->catdir($SrcDir_part,"import");
	$outdir = File::Spec->catdir($volume,$outdir);
	my $bad_file = File::Spec->catdir($outdir, $SrcPattern);
	$bad_file = "$bad_file\.DUPLICATE";
	move($file, $bad_file) or $logger->logdie("can't copy bad file $file to import folder $bad_file: $!");
	#unlink $file or die "$? : $! - error";
	push(@attach_list,"$bad_file");
}