Is there a reason you're not using the CGI and maybe the Mime::Lite modules?

What is your actual question? You don't seem to have an if checking to see whether the mail should actually be sent. If the problem is that it sends the mail every time, instead of only when you want it to, that's probably the reason.