#!/usr/bin/perl
use CGI qw/:standard :html3/;
 
print header,
    start_html("Soft Bug Buddy"),
$action = param('action');
print_bugform();

sub print_bugform {
	print start_form;
 	print table({-border=>''},
 	Tr({-align=>CENTER, -valign=>TOP},
        [
        th([

           print submit(-name=>'action',-value=>'whatever'),
           print submit(-name=>'action',-value=>'whomever'),
           print submit(-name=>'action',-value=>'wherever'),
           'Some kind of text',
	      
	   print submit(-name=>'action',-value=>'quit')
 	 	])
		
     ]
));
}