use Net::SMTP;
use strict;

my $mailserver = '127.0.0.1';

my $smtp = Net::SMTP->new($mailserver);
$smtp->mail('me@mydomainname.org');
$smtp->to('recipient@theirdomain.org');
$smtp->data();

$smtp->datasend(<<MYEMAIL);
To: recipient\@theirdomain.org
Subject: This is my subject

An example of Net::SMTP with here docs

See ya later!

MYEMAIL

$smtp->dataend() or print "Message sending failed!";
$smtp->quit;