| 1 |
#!/usr/bin/perl |
| 2 |
use strict; |
| 3 |
use warnings; |
| 4 |
|
| 5 |
# first, create your message |
| 6 |
use Email::MIME; |
| 7 |
my $message = Email::MIME->create( |
| 8 |
header_str => [ |
| 9 |
From => 'you@example.com', |
| 10 |
To => 'friend@example.com', |
| 11 |
Subject => 'Happy birthday!', |
| 12 |
], |
| 13 |
attributes => { |
| 14 |
encoding => 'quoted-printable', |
| 15 |
charset => 'ISO-8859-1', |
| 16 |
}, |
| 17 |
body_str => "Happy birthday to you!\n", |
| 18 |
); |
| 19 |
|
| 20 |
# send the message |
| 21 |
use Email::Sender::Simple qw(sendmail); |
| 22 |
sendmail($message); |
| 23 |
|
| 24 |
# From https://learn.perl.org/examples/email.html |
| 25 |
|
