Hey guys, I am having problems. Long time HTML coder, which these days is like knowing COBOL, and am trying to get my form emailed back to me. I've tried lots, but never get the email. Can anyone help?


#!/usr/bin/perl w
use CGI::Carp qw(fatalsToBrowser);

# The following accepts the data from the form and splits it into its component parts

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}


open(MAIL, "| $usr/sbin/sendmail -t");

print MAIL "To: mail\@qtscreen.com\n"; # Don't forget to escape this @ symbol!
print MAIL "From: $FORM{Customer}\n";
print MAIL "Reply To: $FORM{E-Mail}\n";
print MAIL "Phone: $FORM{Phone}\n";
print MAIL "Subject: Web Submitted Order from $FORM{Contact} \n\n";
print MAIL "Printing Information: $FORM{OrderInfo}\n";
print MAIL "Print Location: $FORM{printloc}\n";
print MAIL "Follow Up Info: $FORM{Followup}\n";

close (MAIL);



Any help would be greatly appreciated.