Possibly your email field is incorrect.
Check the line
print MAIL "To: $rec{'email'}\n";
and make sure you have changed email to match the name of your email field. (I put it in bold before, but I forgot to mention it.)
------------------
JPD
Check the line
print MAIL "To: $rec{'email'}\n";
and make sure you have changed email to match the name of your email field. (I put it in bold before, but I forgot to mention it.)
------------------
JPD