eval{ copy("$source" ,"$target_input_file"); }; if($!) { open(FAIL,">>failed_copy_$channel"); print FAIL"FAILED TO Copy \"$target\" WITH FROM \"$target_input_file\"....\n"; close(FAIL); }