#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi = new CGI;
if ($cgi->param('action')) {
my $input1 = $cgi->param('Eingabe1');
my $input2 = $cgi->param('Eingabe2');
print $cgi->header(), qq(
Mein Programm
Letzte Eingabe: $input1
Letzte Eingabe: $input2
);
} else {
print $cgi->header(), q(
Mein Programm
Bitte geben Sie die AZ ein:
);
}