#!/usr/bin/perl -w

use strict;

use Mail::Mailer;

my $mailer = new Mail::Mailer 'smtp', Server => 'smtp.server.net';

$mailer->open( { from => 'chromatic', to => 'chromatic@perlmonks.org', subject => 'Not Valid Addresses' });
print $mailer "This is my text.";