#!/usr/bin/perl 
use warnings;
use strict;
use Net::SMTP;

my $recepient = qq("nafroz\@sunamerica.com","sdas\@sunamerica.com");
print "$recepient \n";
my $smtp = Net::SMTP->new('smtp1.sunamerica.com');

$smtp->mail("nafroz\@sunamerica.com");
#$smtp->to("nafroz\@sunamerica.com" , "sdas\@sunamerica.com");

$smtp->to($recepient);

$smtp->data();
$smtp->datasend("Subject: TEST MESSAGE\n");
$smtp->datasend("To: nafroz\@sunamerica\n");
$smtp->datasend("\n");
$smtp->datasend("Email test.");
$smtp->dataend();

$smtp->quit;