Select Code to Download

open( INFILE, "<$filename" )      || die "$!\n";
open( OUTFILE, ">>dataload.errs" ) || die "$!\n";
...
close( OUTFILE );

print "$_ $total{$_}\n" for keys %total

print "Total errors for $_: $total{$_} \n" for keys %total