use CGI;
my $query = CGI->new;

my $z='';
print $query->header;
if ($query->param('test') eq 'ok') {
        my @form_fields = qw/test test2/; # bestimmte Felder löschen
        foreach my $f (@form_fields) {
          $query->delete($f);
        }
        # VORSICHT!!! Oder alle CGI-Parameter (!!!!) löschen
#       $query->delete_all();
        $z='OK!';
}

print $query->start_form,
        $query->p('Eingabe von ok im ersten Feld bewirkt löschen! der Parameter'),
        $query->textfield(-name=>'test'),
        $z,
        $query->textfield(-name=>'test2'),
        $query->submit,
        $query->end_form;