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