Bulk mailer script written in Perl