my $sth=$dbh->prepare("SELECT country,region FROM geo");
$sth->execute;
my($country,$region);
$sth->bind_columns(\$country,\$region);
while ($sth->fetch) {
    print "<tr><td>$country</td><td>$region</td></tr>\n";
}