#!/usr/bin/perl

use DBI;
my $DB_NAME = 'smtpclient';
my $HOST_NAME = 'localhost';
my $USER_NAME = 'root';
my $PASSWORD = '';


my $dbh = DBI->connect (
        "DBI:mysql:database=$DB_NAME;host=$HOST_NAME;",
        $USER_NAME,
        $PASSWORD,
        {'RaiseError' => 1}
);



$query_from_email    = qq {
                                SELECT          mail_from_account_id,
                                                mail_from_account_email,
                                                mail_from_user,
                                                password,
                                                host,
                                                port,
                                                auth_type ,
                                                verbose
                                        FROM    smtp_account_info
                            #            LIMIT   100
                        };
#print $query_from_email."\n";
$sth_from_email = $dbh->prepare($query_from_email);
$sth_from_email -> execute();

@to_id = ("samsonp_81\@yahoo.com","rangaprasadmutyala\@yahoo.co.in","hemarajun\@yahoo.co.in","samsonp81\@gmail.com","samson.potla\@gmail.com");
#$to = 'samsonp_81@yahoo.com';
while (($mail_from_account_id, $from, $user ,$pass, $host, $port, $auth_type, $verbose ) = $sth_from_email->fetchrow_array ()){


         for($i=0; $i <= $#to_id; $i++){

          my $returncode = `/usr/local/mailcntr/sam_smtp.pl --host=$host  --port=$port  --user=$user  --pass=$pass --from=$from
                                 --to=@to_id[$i]  --data=data.txt --verbose=$verbose --auth-login`;
         print $returncode;
       }


 }

but i need to enhance it more..