use CGI;
my $cgih = CGI->new;
my $par1 = $cgih->param('par1');
my $par2 = $cgih->param('par2');
my $check1 = (defined $par1 && $par1 eq 'true' ? ' checked' : '');
my $check2 = (defined $par2 && $par2 eq 'true' ? ' checked' : '');
(my $script = $0) =~ s/^.*[\\\/]//g;
my $formular = <
Parameter 1
Parameter 2
HTML
;
# Formular ausgeben
print $cgih->header.$formular;