#!/usr/local/bin/perl use CGI qw(:standard); print header(); $JSCRIPT=<<eos; function doSubtract() { --document.form1.Result.value; } function doAdd() { ++document.form1.Result.value; } eos print start_html(-script=>$JSCRIPT), hr, h1("JavaScript Buttons!"), textarea(-name=>'thisRecord', -value=>'This is a bibliographic record', -rows=>5, -cols=>50), start_form(-name=>'form1'), "Judge how relevant this descriptor is for the record", p, textfield(-name=>'descriptor', -value=>'Here is a descriptor', -size=>45), p, button(-value=>'Decrement', -onClick=>"doSubtract(this)"), textfield(-name=>'Result', -value=>'0', -size=>3), button(-value=>'Increment', -onClick=>"doAdd(this)"), end_form(), hr, end_html;