How to write an net::smtp email in perl?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

use Net::SMTP;

my $smtp = Net::SMTP->new('mail.example.com', Timeout => 30) or die "Failed to connect to SMTP server";

$smtp->mail('[email protected]');
$smtp->to('[email protected]');
$smtp->data();
$smtp->datasend("From: [email protected]
");
$smtp->datasend("To: [email protected]
");
$smtp->datasend("Subject: Test Email
");
$smtp->datasend("
");
$smtp->datasend("This is a test email sent using Net::SMTP in Perl.
");
$smtp->dataend();

$smtp->quit;