check Net::SMTP::OneLiner Module
and define your not changing variables like email, sender, host, etc. outside the while loop so you do not define them over and over.