Closing Sendmail throws error?

[Steven Vargas]

Hi there, I'm getting this error message:
Error closing sendmail: at /webdocs/docs/clone/cgi-bin/sendoff.cgi line 48.

The email goes through successfully, but still get the error. Any help would
be greatly appreciated!

Thanks heaps.

Here's the snippet of code:
#!/usr/bin/perl -wT

use strict;
use CGI;
use CGI::Carp qw( fatalsToBrowser );


#Taint stuff, pretty standard
BEGIN {
        $ENV{PATH} = "/bin:/usr/bin";
        delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
}

my $q           = new CGI;
my $email       = "foo.bar\@foobar.com";
my $message     = "Hi there!\n\nThis is a test email";

send_feedback( $email, $message );


sub send_feedback {
        my ($email, $message) = @_;

        open MAIL, "| /usr/lib/sendmail -t -i" or die "Could not open sendmail:
$!";

        print MAIL <<END_OF_MESSAGE;
To: foo.bar\@foobar.com
Reply-To: $email
Subject: live contest

$message
END_OF_MESSAGE

close(MAIL) or die "Error closing sendmail: $!";
}



__END__



Steven Vargas
[EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]