How to Send Email

[ramyaamar]

Hii
I am Beginner to perl..I need to send a notification mail to a user tht is when a person excutes the program.....(mean automatically a mail should be sent to a id) i searched in the net... i came to know should install Mail::Mailer or sender.pm or lite packages... i dont know which one to install and how to write the program ??? an idea....Thanks in advance!

[KevinADC]

you probably don't need to install anything if there is already sendmail or qmail or other email application installed on the server. Just pipe the email out to one of those applications. Or use the MIME::Lite module. It may have to be installed though.

[davidiwharper]

I'm a beginner too, but this is the code I've been taught -- for use with a UNIX/Linux environment:

#!/usr/bin/perl
#
# Email program - sends message to administrator
#
 
my $sendmail = '/usr/sbin/sendmail'; # this is different on some systems, use "whereis sendmail" to find the exact location
my $destination = '[e-mail]';
my $sender = '[e-mail]';
 
# send the email
 
open MAIL, "|$sendmail -oi -t" or die "Can't open pipe to Sendmail: $!\n";
 
print MAIL <<"EOF";
To: $destination
From: $sender
Subject: This is the subject line
 
Hello there,
 
This is a message
 
Thank you for your assistance.
 
Regards,
David
 
EOF
# remember that ONLY "EOF" can show on the line
 
close MAIL or die "Can't close pipe to Sendmail: $!\n";
 
# end of program
 

David