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