#!/usr/bin/perl

use lib "/path/to/Net::SMTP/module";
use Net::SMTP

$host = "SMTP SERVER";
$port = 25;

$smtp = Net::SMTP->new($host, Hello =>  port=>$port)
	
$smtp->mail("FROM EMAIL ADDRESS");
$smtp->recipient("TO EMAIL ADDRESS");
$smtp->data;
$smtp->datasend("From: host\@domain.com");
$smtp->datasend("To: account\@domain.com\n");
$smtp->datasend("Subject: Test");
$smtp->datasend("\n");
$smtp->datasend ("This is a test");

$smtp->dataend;
$smtp->quit;

##</code><code>##

"SMTP SERVER" is not exported by the Net::SMTP module. Can't continue after import errors at line 6.