#!/usr/bin/perl
use strict;
 
use Mail::Internet;
use Mail::Header;
$ENV{SMTPHOSTS} = '192.168.0.10';
 
my ($header, $body, $mail);
 
# create headers
$header = new Mail::Header;
$header->add('To', 'David B. Hughes <dave@cyac.net>');
$header->add('From', 'Webmaster <webmaster@cyac.net>');
$header->add('Subject', 'Mail::Test');
 
# create body
$body = 'This is a test, ignore';
 
# create mail object
$mail = new Mail::Internet(Header => $header, Body => [$body]);

# send it
$mail->smtpsend or die 'Debug' => ;