I've been using Email::Stuff
lately. Doesn't get any easier. From the docs (with a mod for using SMTP):
# Prepare the message
my $body = <<'AMBUSH_READY';
I have killed Bun Bun.
Yes, I know what you are thinking... but it was actually a total acc
I was in a crowded line at a BayWatch signing, and I tripped, and st
+ood on his head.
I know. Oops! :/
So anyways, I am willing to sell you the body for $1 million dollars
Be near the pinhole to the Dimension of Pain at midnight.
# Create and send the email in one shot
Email::Stuff->from ('email@example.com' )
->to ('firstname.lastname@example.org' )
->bcc ('email@example.com' )
filename => 'dead_bunbun_proof.gif')
->using ('SMTP', Host => 'smtp.mail.yahoo.com')