Select Code to Download

#!/user/bin/perl

open (OUTFILE, '>>', 'COID_LIST.txt') or die "Unable to open Write Fil
+e! \n$!";
...
print OUTFILE Dumper(\%sum);

close OUTFILE;