#!/usr/bin/perl -wT

use CGI qw/:standard/;
use DBI;
use Net::SMTP;
use CGI::Carp qw(fatalsToBrowser);

BEGIN {
     use CGI::Carp qw(carpout);
     open(LOG, ">>/home/username/cgi-bin/mycgi-log") or
       die("Unable to open mycgi-log: $!\n");
     carpout(LOG);
   }

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

##</code><code>##

print footer;

##</code><code>##

sub check_value_combinations {

diehtml($comb_error) if defined $comb_error;
print footer;

break;
}

##</code><code>##


BEGIN {
     use CGI::Carp qw(carpout);
     open(LOG, ">>/home/username/cgi-bin/mycgi-log") or
       die("Unable to open mycgi-log: $!\n");
     carpout(LOG);
   }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use CGI qw/:standard/;
use DBI;

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