#!/usr/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); my $cgiquery = new CGI; my ($i, $time); my $profile_select = $cgiquery->param('user'); # autor $| = 1; # flush output buffer, makes perl error messages # visible on web browser $time = time; # my $select_usr = $cgiquery->param('user'); print $cgiquery->header; print $cgiquery->start_html(-"title"=>'Test',-BGCOLOR=>'#EFEEFF'); print "Text\n"; print $cgiquery->startform(-name=>'Form1'); print "
Inhalt
";
print "
Inhalt: (Key-Word-Search)
", $cgiquery->textfield(-NAME => "user"), "