##
use strict;
use warnings;
use CGI;
#use CGI qw(:standard);
my $c = CGI->new();
my $value = $c->param('textBox');
print $c->header();
my $path ="/x/home/path/code";
chdir($path) or die "Cant chdir to $path $!";
system "perl /x/local/perl_code12.pl $value > /dev/null 2>&1";
print "Location: http://host/project/index.html";