Select Code to Download

#!/usr/bin/perl -wT

...
# resource limits
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;

print footer;

sub check_value_combinations {

...

break;
}

BEGIN {
...
       die("Unable to open mycgi-log: $!\n");
     carpout(LOG);
   }

print "<form><input type=\"hidden\" name=\"confirmed\" value=\"yes\">"
+;
    print "<input type=\"hidden\" name=\"name\" value=\"$name\">
    <input type=\"hidden\" name=\"surname\" value=\"$company\">

$name = cgi_get('name') and $name =~ s/'`-\w\s//go; # filter name

use CGI qw/:standard/;
use DBI;
...
# resource limits
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;