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