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;

##</code><code>##

Net::SMTP: Net::SMTP(2.16)
Net::SMTP:   Net::Cmd(2.19)
Net::SMTP:     Exporter(5.562)
Net::SMTP:   IO::Socket::INET(1.25)
Net::SMTP:     IO::Socket(1.26)
Net::SMTP:       IO::Handle(1.21)
 
Net::SMTP=GLOB(0x1a72800)<<< 220  ESMTP xxx-xx.xxxx.com  Sendmail 8.8.8+Sun/SMI-S
VR4 ready at Fri, 2 Apr 2004 13:12:58 -0500 (EST)
Net::SMTP=GLOB(0x1a72800)>>> EHLO MY PC NAME
Net::SMTP=GLOB(0x1a72800)<<< 250- xxx-xx.xxxx.com Hello  xx.xx.xx.xxx, pleased to meet you<br>
Net::SMTP=GLOB(0x1a72800)<<< 250-EXPN
Net::SMTP=GLOB(0x1a72800)<<< 250-VERB
Net::SMTP=GLOB(0x1a72800)<<< 250-8BITMIME
Net::SMTP=GLOB(0x1a72800)<<< 250-SIZE
Net::SMTP=GLOB(0x1a72800)<<< 250-ONEX
Net::SMTP=GLOB(0x1a72800)<<< 250-ETRN
Net::SMTP=GLOB(0x1a72800)<<< 250-XUSR
Net::SMTP=GLOB(0x1a72800)<<< 250 HELP
Couldn't connect to smtp server: Bad file descriptor