$action = $dbh->prepare("IBW_WebAuth $reg_num,$passwd") ;
        $action->execute ;
        $rows = $action->rows ;
        print "rows is $rows\n";