in reply to Problem in adress field for email script.

I can't test it, but

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

is passing two arguments where $smtp->to($recepient); is passing one. You could try:

my @recepient = qq("nafroz\@sunamerica.com","sdas\@sunamerica.com");
...
$smtp->to($recepient[0], $recepient[0]);

[download]
Perl is Huffman encoded by design.

In Section Seekers of Perl Wisdom