Can perl end not printing to the web browser?

I have a form tha calla a perl script. All I want the script to do is validate the email address and send an email. No thing else. However, when I try this, I get an error, and the error goes away when I have a print command after everything like:

print "your email has been sent.\n";

And this prints on the same web page as my form.

Is there a way to end a perl script without printing anything at the end? If not, can I put that print in some sort of dialog box?

A print command is not required. You'd need to show more of your script for us to understand where the error is coming from.

Her is the code I'm using:

#!/usr/bin/perl -w

use CGI;

my(%frmFlds);
$buffer = "";

getFormData(\%frmFlds);

#################################
#
# Change these variables as needed.
#
#################################

$sendmail = "/usr/sbin/sendmail";
$from = "learneasymoney\@gmail.com";
$subject = "Thank you for your interest in $frmFlds{'product'}";

open(MAIL, "|$sendmail -t") || die "Cannot open mail sender.\n";

print MAIL "To: $frmFlds{'email'} \n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/html; charset=ISO-8859-1\n\n $frmFlds{'content'}\n";

close(MAIL);

sub getFormData {
my($hashRef) = shift;
$buffer = "";

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

foreach (split(/&/, $buffer)) {
my($key, $value) = split(/=/, $_);
$key = decodeURL($key);
$value = decodeURL($value);
%{$hashRef}->{$key} = $value;
}
}

sub decodeURL {
$_ = shift;
tr/+/ /;
s/%(..)/pack('c', hex($1))/eg;
return($_);
}

Is this being called as an AJAX request?

First step is to add these 2 pragmas, which should be in every Perl script you write.

Next, get rid of those 2 subroutines and instead use the methods provided by the CGI module to parse the submitted form data.

For validating the email, I'd use the Email::Valid module.

I prefer CGI's OO interface, so this how I'd begin the script.