#! /usr/bin/perl -w
use strict;
use warnings;

use Mail::Sender;

my $debug = 1;

my $sender	= 'me@mydomain.com';
my $smtp	= 'smtp.mydomain.com';

my @mailtoList = qw (bob@mydomain.com betty@mydomain.com ruphal@otherdomain.com);

sendMail ('subject', 'message');

sub sendMail
{
	my $subject = shift;
	my $tolist = join ', ', @mailtoList;
	my $mailer = new Mail::Sender {	smtp => $smtp,
					from => $sender ,
					to => $tolist };
	
	# Add timestamp
	unshift @_, scalar localtime, "";
	
	if ($mailer->Open({subject => $subject}))
	{
		foreach (@_)
		{
			$mailer->SendLineEnc($_);
			print "$_\n" if $debug;
		}
		$mailer->Close;
	}
}