#!/perl/bin/perl.exe -T use CGI; use strict; use warnings; my $q = new CGI; my $company = $q->param('company'); my $last = $q->param('last'); my $first = $q->param('first'); my $serial = $q->param('serial'); my $meter = $q->param('meter'); print $q->header("text/HTML"); print < Test CGI

You Entered


WEB_PAGE

&INFO;

print "\<\/PRE\>\n";
print "\<\/BODY\>\n";
sub INFO 
{
    print "COMPANY: $company\n";
    print "LAST: $last\n";
    print "FIRST: $first\n";
    print "SERIAL: $serial\n";
    print "METER: $meter\n";
    }