use CGI; use strict; my $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser); print $cgi->header(); my $description = $cgi->param('param6'); my @rows; push @rows, $cgi->td([ 'Beschreibung:', $cgi->textfield(-name => 'description', -size => 60, -maxlength => 128, -value =>$description) ] ); print $cgi->table( $cgi->Tr( \@rows ));