Though it was recently discussed here in the context of Windows, it all applies to Unix, too, I think. Try this node: Sending Mail on a Windows Machine

Hi, try this module in CPAN
Mail::SendEasy

#! /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@otherd
+omain.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;
    }
}
[download]

Someone here at the Monastery got me onto Mime::Lite which I like over Mail::Sendmail which I was using. Mime::Lite makes adding attachments so much easier.

use MIME::Lite;

for (@email_recipients) {

   #-- create the multipart container
   my $msg = MIME::Lite->new (
      From      => $query->param('fromwho'),
      To          => $_,
      Subject  => $query->param('subject'),
      Type       =>'multipart/mixed'
   ) or die "Error creating multipart container: $!\n";
    
   #-- add the text message part
   $msg->attach (
      Type  => 'TEXT',
      Data   => $query->param('message'),
   ) or die "Error adding the text message part: $!\n";
    
   #-- add the ZIP file
   $msg->attach (
      Type     => 'AUTO',
      Path      => "../".$file,
      Filename => $file,
      Disposition => 'attachment'
   ) or die "Error adding $file: $!\n";
                            
   $msg->send;
        
   sleep(1);
}
[download]

Note the use of the delay at the end of the loop. This avoids the batch e-mail appearance to some spam filters. However, it may be moot because many ISPs limit the number of emails you can send at once or in an hour.

  use Mail::SendEasy ;

  Mail::SendEasy::send(
  from    => 'sender@foo.com' ,
  to      => 'recp@domain.foo' ,
  subject => "MAIL Test" ,
  msg     => "The Plain Msg..." ,
  ) ;
[download]