http://qs1969.pair.com?node_id=575517


in reply to JScript and Perl

You've got the quoting wrong in the

print table({-width=>'97%',-cellpadding=>4,-cellspacing=>5}, Tr({-align=>RIGHT,-valign=>TOP}, td( submit(-name=>'Update',-value=>'Update',-onClick(Validat +eForm(this.form)))) ) );
I think you want something like:
print table({-width=>'97%',-cellpadding=>4,-cellspacing=>5}, Tr({-align=>RIGHT,-valign=>TOP}, td( submit(-name=>'Update',-value=>'Update',-onClick => 'Val +idateForm(this.form)')) ) );

/J\