use strict;
use Net::SMTP;
 
my $SMTP_SERVER   = "xxx.x.xx.xxx";
my $EMAIL_DOMAIN  = "xxx-xx.xxxx.com";
 
my $mailFrom = "myname\@domain.com";
my $subject = "Test SMTP Message";
my $msg ="This is a test message.";
my $mailaddr = $ENV{USER} . "\@" . $EMAIL_DOMAIN;
 
my $smtp = Net::SMTP->new($SMTP_SERVER, Debug => 1);
print STDERR "Couldn't connect to smtp server: $!\n" unless $smtp;
 
$smtp->mail($ENV{USER}."\@".$EMAIL_DOMAIN);
$smtp->to('me@domain.com');
$smtp->data("\n");
$smtp->datasend("From: $mailFrom\n");
$smtp->datasend("To: me\@domain.com\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend($msg);
$smtp->dataend();
$smtp->quit;