use CGI qw(param header);

print header;
if (param('form_submitted') {
   # process form and print results/errors, maybe reprint form
} else {
   # print form
}