sub _long_show ( $dbh, $sql )  {    
    my $sth = $dbh->prepare($sql);
    $sth->execute();
    $sth->bind_col(1, undef, {TreatAsLOB=>1});
    
    my $data;
    my $retval = "";
    
    while($sth->fetch) {
        while (my $retrieved = $sth->odbc_lob_read(1, \my $data, 65535)) {
            $retval .= $data;
        }
    }
    return $retval . "\n";
}