#!/usr/local/bin/perl -w

use strict;
use Net::SMTP;

{
  my $sender = 0;

  $sender = Net::SMTP->new ('smtp.mailserver.pm');
  $sender->mail ('perlmonk@themonastery.org');
  $sender->to ('goddesses@themonastery.org');
  $sender->data ();
  $sender->datasend ("From: perlmonk\@themonastery.org\n");
  $sender->datasend ("To:   goddesses\@themonastery.org\n");
  $sender->datasend ("Subject: Promotions\n");
  $sender->datasend ("\n");
  $sender->datasend ("Please vote my articles up, I need the XP"\n\n");
  $sender->dataend;
  $sender->quit;
}