Select Code to Download

use DBD::CSV ();
use if $DBD::CSV::VERSION < 0.50, File::BOM => ();
...
        )
    }
);

#!/usr/bin/perl

...
        say join(",",@a);
}
$sth->finish();