print $query->button(-name=>'button_name', -value=>'user visible label', -onClick=>"do_something()");
-or-
print $query->button('button_name',"do_something()");
button
produces a button that is compatible with Netscape
2.0's JavaScript. When it's pressed the fragment of JavaScript code pointed
to by the -onClick parameter will be executed. On non-Netscape browsers this form element will
probably not even display.