Select Code to Download

open my $outfh, '>', $New_part_report 
  or die "Problem opening '$New_part_report' for writing: $!\n";