print "DBI thinks ",
    (DBI::looks_like_number($ordercode)
     ? "is"
     : "is not"),
    " a number\n";

##</code><code>##

DBI->trace(3);   # probably overkill