Select Code to Download

my ($sth, $sum) = ($dbh->prepare ("select sum (whatever) from ..."));
$sth->bind_columns (\$sum);
...
        print STDERR "Something went wrong: ", $sth->errstr, "\n";
        }
    }