#!/usr/local/bin/perl

use strict;
use warnings;
use CGI qw/:standard :html3/;
print header;
my $test_button = button(-name=>'Test',-value=>'Test Val',-onClick=>"return test('Testing!');");
print start_html();
print <<JAVASCRIPT;
<script>
function test (message) {
	alert(message);
}
</script>
JAVASCRIPT
print startform();
print $test_button;
print endform();
print end_html();