Update: Due to server lag, this node got duplicated and may be reaped.

First of all, are you sure this code works? perltidy reports that it parses this way:

...
  $count = $dbh->do("INSERT INTO  ques (...) VALUES (...)",
                    undef,
                    $usernamenow,
                    $txtque,
                    ...
           );
...
[download]