#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

print header, start_html;
print ("Submitted:", param(), hr) if param();
print start_form, 
    textfield('text1'), br,
    submit('button1'), submit('button2'),
    end_form, end_html
;