Where do you get the parameters to this subroutine? Please dear gawd, don't say "from a web form". Argh!

If so, you've just created a spam engine.

Have you actually read any of the answers to your post? You appear to be ignoring the fundamental problem.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.