$title

ENDSTART if(param()) { @fields = param(); print "\n"; for $variable(@fields) { @values = param($variable); for $value(@values) { print "\n"; }} print "
", show($variable),""; @filehandles = upload($variable); if(@filehandles) { for $fh(@filehandles) { print "**",$fh,"**"; $type = uploadInfo($value)->{'Content-Type'}; $data = substr(<$fh>,0,$start); print "file ($type, first line or max. $start octets shown):
", show($data),""; }} else { $value =~ s/ /ÿ/g; if($value eq '') { print '(empty)'; } else { print "",show($value),""; } } print "
\n"; } else { print p(em('No data was submitted')); } ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); $now = sprintf "%4d-%02d-%02dT%02d:%02dZ", 1900+$year,$mon+1,$mday,$hour,$min; print p('Processed '.$now."\n"); print end_html; sub show { $_[0] = escapeHTML($_[0]); $_[0] =~ s/\r\n/
/g; $_[0] =~ s/\n/
/g; return $_[0]; }