#!/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 "<B>Text</B>\n";
print $cgiquery->startform(-name=>'Form1');
print "<P>Inhalt<BR>";
print "<P>Inhalt: (Key-Word-Search)<BR>", $cgiquery->textfield(-NAME => "user"), "</P>";
print p(submit("send"), reset("clear"));
print $cgiquery->endform;

if (!$profile_select)
{
        print "No User selected! \n";
}
else
{
        print "$profile_select now available! \n";
}


my $file = '/pfad/test.txt';
open(DATEI,">$file") or print $!;
print DATEI "Dies ist ein Text von $profile_select \n";
close DATEI;

print end_html;