#!/usr/bin/perl -w

use strict;
use MIME::Lite;

my @recipients = qw(
                   nafroz@sunamerica.com
                   sdas@sunamerica.com
                   );


my $message = 'Email test.';

MIME::Lite->send('smtp', 'smtp1.sunamerica.com', Timeout=>60);

foreach (@recipients){
  print "$_\n";
  &send_message($_);
}

sub send_message{
  my $msg = MIME::Lite->new( 
              From    => 'yourname@sunamerica.com',
              BCc     => "$_",
              Subject => 'TEST MESSAGE',
              Type    => 'TEXT',
              Data    => "$message"
              );
$msg->send;
}