Select Code to Download

use Mail::DeliveryStatus::BounceParser;
use DBI;
...

close REPORT;
print "Processing complete. In = ", $n, "  records\n";