Select Code to Download

    report_no,
    reported_by
...
    cat13
    cat14
    cat15

use strict;

...
$sth->finish();
$dbh->disconnect;