#!/usr/bin/perl -T

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

print header, start_html('Test CGI'), start_form,
   'Company Name ',  textfield('company'), br,
   'Last Name ',     textfield('last'), br,
   'First Name ',    textfield('first'), br,
   'Serial Number ', textfield('serial'), br,
   'Meter Reading ', textfield('meter'), br,
   submit('Submit'), end_form,
;

if (param('Submit')) {
   my $company = param('company');
   my $last    = param('last');
   my $first   = param('first');
   my $serial  = param('serial');
   my $meter   = param('meter');

   print hr, h3('You Entered'),
      pre("
      COMPANY: $company
      LAST:    $last
      FIRST:   $first
      SERIAL:  $serial
      METER:   $meter
      "),
   ;
}

print end_html;