# Without exceptions
$sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region })
		or die $dbh->errstr;
$sth->execute or die $dbh->errstr;;
my ($region, $sales);
$rv = $sth->bind_columns(\$region, \$sales);
while ($sth->fetch or die $dbh->errstr) {
	print "$region: $sales\n";
}