Select Code to Download

$rowcount = $dbh->do("select * from TABLE");

sub do {
    my($dbh, $statement, $attr, @params) = @_;
...

    ($rows == 0) ? "0E0" : $rows;
}