my $Error_Path = "\\\\server\\share\\new_error\\"; my $EAI_Error_Path = "\\\\server\\share\\old_error\\"; my $file; opendir DIR, $EAI_Error_Path; my @file = grep {$_ ne '.' && $_ ne '..'} readdir DIR; closedir DIR; foreach $file (@file){ $cmd = "copy \"".$EAI_Error_Path.$file[$i]."\" \"". $Error_Path.$file[$i]."\""; system ($cmd) or die "?"; unlink $EAI_Error_Path.$file; $i++; } close MYFILE;