#!/usr/bin/perl -w

use strict;
use diagnostics;
use CGI qw/:standard Vars/;
use CGI::Carp 'fatalsToBrowser';

my @page;

my %form_data = Vars;
foreach my $input_name (keys %form_data) {
    push @page, p( {-align => 'center'},
                   b($input_name),
                   ": $form_data{$input_name}" );
}

print header, html(@page);