#!/usr/bin/perl -wT
#
# mail-form cgi
# Quick and dirty Web form processing script.  Emails the data
# to the recipient.
#
# You should change any variable that has "CONFIGURE" in the
# comment.

#### modules (these don't need changing)
#
# be strict, define all variables
use strict;

# use CGI.pm for parsing form data and printing headers/footers
use CGI;

# redirect errors to the browser window
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

# create an instance of CGI.pm:
my($cgi) = CGI->new;

# CONFIGURE: change this to the proper location of sendmail on your system:
my($mailprog) = '/usr/sbin/sendmail';

# Set the path, so taint mode won't complain. This should be the path
# that sendmail lives in!  (If you're using /usr/lib/sendmail, then
# the path had better be /usr/lib here.)
$ENV{PATH} = "/usr/sbin";

# CONFIGURE: change this to the e-mail address you want to receive the 
# mailed form data
my($recipient) = 'info@millennium-internet.co.uk';

# CONFIGURE: ch