Test

##

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);

my $cgi = CGI->new;
my $txtInput = $cgi->param('txtInput');
warn $txtInput;
print $cgi->header();
print $cgi->start_html('Testing');
print $cgi->h1($txtInput);
print $cgi->end_html;

##

##

[error] [client XX.XX.XX.XX] Use of uninitialized value in warn at cgitest.pl line 9., referer: http://server/form.html
[error] [client XX.XX.XX.XX] Warning: something's wrong at cgitest.pl line 9., referer: http://server/form.html