Select Code to Download

    select foo from bar limit 3

    select data from frog limit 3

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

    my $sth = $dbh->prepare(<<SQL);
select id, data from frog limit 3
...
    while ($sth->fetch) {
        print $id, "\t", $data, "\n";
    }