#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP_auth;

my $smtp = Net::SMTP_auth->new('zentara.zentara.net');
$smtp->auth('LOGIN', 'z', 'ztest');

$smtp->mail('z@zentara.zentara.net');
$smtp->to('zentara@zentara.zentara.net');

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;