my $dbh = DBI->connect($db{$dsn}{dsn},$db{$dsn}{user},$db{$dsn}{password},$db{$dsn}{opts});
    if (!defined($dbh)) {
        print "Error creating dbh: " . $DBI::errstr . "\n";
        exit;
    }
    my $sth;
    $sth = $dbh->prepare($query);

    if (!$sth) {
        print "Error: " . $dbh->errstr . "\n";
        exit;
    }
    if (!$sth->execute) {
        print "Error: " . $sth->errstr . "\n";
        exit;
    }

    print "Content-Type: text/html; charset=utf-8\n\n";
    my $ref = $sth->fetchrow_arrayref;
    my $str = $$ref[0];
    print $db{$dsn}{driver}." ".$str ." > ".join(" ",map {sprintf("0x%X",$_)} unpack("C*",$str))."\n";



##</code><code>##

# ./sql_test
Content-Type: text/html; charset=utf-8

Sybase &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089;&#1072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD0 0x9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0


##</code><code>##

# ./sql_test
Content-Type: text/html; charset=utf-8

Pg &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089;&#1072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD0 0x9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0


##</code><code>##

Sybase ?????#????? > 0x3F 0x3F 0x3F 0x3F 0x3F 0x23 0x3F 0x3F 0x3F 0x3F 0x3F 


##</code><code>##

Pg &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089;&#1072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD0 0x9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0