use DBI();
use Mail::Sendmail;

unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , '100.100.100.200';

$dbaxs = DBI->connect("DBI:ODBC:dsn=CLIENT_EMAIL") || die "Connection died\n\n";

$Exe = "SELECT * FROM qryFeedLetter";
$qry = $dbaxs->prepare("$Exe");
$qry->execute() || die "\nBad SQL\n";

while (my $rw = $qry->fetchrow_hashref()) {
	$login = $rw->{'UsrLogin'};
	$FName = $rw->{'UsrFName'};
	$Supervisor = $rw->{'Supervisor'};

     $EmlTo =  $rw->{'UsrEmail'};
    	$subj = "Employee Satisfaction Survey";
	$msg = "Dear $FName:\n\nYou are probably aware .. ";
	$msg .= ".. more text .. \nNOTE: In your survey, the word \"manager\" refers to $Supervisor.  .. blah blah blah .. go to http://www.somesite.com/somepage  Your personal \"Log-In\" code is \"$login\".  .. more text here, then .. Thanks.\n\nVery sincerely,\n\nClient";
         
     %mail = ( To      => "$EmlTo",
     		From	   => 'ClientSurvey <soembody@somesite.com>',
     		Bcc	   => 'me@somesite.com',
	          Subject => "$subj",
	          Message => "$msg"
	         );
	
	sendmail(%mail) || die $Mail::Sendmail::error;
	print "\n\nLogged:\n", $Mail::Sendmail::log;
}

$dbaxs->disconnect();