[ale] stupid perl question

[Cade Thacker]

I am trying to send an email out of perl, but I does
not seem to be working.  I can type:

# /usr/sbin/sendmail 
to: cadethacker at yahoo.com
subject: test

test
.

and it works fine, I get the email, but when I run the
script below, I get nothing. 

#!/usr/bin/perl

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

print MAIL 'to: cadethacker at yahoo.com\n';
print MAIL 'subject: test script\n\n';
print MAIL 'body test\n';

close (MAIL);

print "Mail is sent\n";

exit;

sub error {
	print "problem with sendmail\n";
	exit;
}


Anybody see anything stupid I am doing. Thanks

cade


__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/
--
To unsubscribe: mail majordomo at ale.org with "unsubscribe ale" in message body.