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";
    }