#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use CGI qw/:standard/;       #   load cgi (functions for using forms a
+nd generating HTML)
   $CGI::POST_MAX=10240;     #   limit data to 10k
   $CGI::DISABLE_UPLOADS =1; #   prevent file uploads with this script
+ :/
use Fcntl qw(:flock);        #   file lock used by the order counter

 
my $serv = $ENV{'SERVER_NAME'};
my $ip   = $ENV{'REMOTE_ADDR'};
my $brow = $ENV{'HTTP_USER_AGENT'};
my $ref  = $ENV{'HTTP_REFERER'};

$ENV{PATH}      = "/usr/sbin/sendmail -t -i";        #for sendmail