#!/usr/bin/perl -w
use strict;

use CGI qw /:standard/;

my $q = new CGI;
print header, start_html;
print ("Submitted:", $q->param(), hr) if $q->param();
print <<EOF;
<form method="post">
 <input type="button" name="button1" value="button1" onclick="this.form.submit()" />
 <input type="submit" name="button2" value="button2" />
</form>
EOF
print $q->end_html;

exit;