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;