select foo from bar limit 3

##</code><code>##

    select data from frog limit 3

##</code><code>##

    my($data);
    $sth->bind_columns(\$data);
    while ($sth->fetch) {
        print $data;
    }

##</code><code>##

    my $sth = $dbh->prepare(<<SQL);
select id, data from frog limit 3
SQL
    $sth->execute;

    my($id, $data);
    $sth->bind_columns(\$id, \$data);
    while ($sth->fetch) {
        print $id, "\t", $data, "\n";
    }