I'm sure you have already looked at the Email modules that CPAN provides. Please tell us why the modules are unsatisfactory and didn't do what you needed. Particularly, MIME::Lite works very well in sending emails.

If you have other questions than how to send mail from a Perl script, maybe you should make that clearer in your post.

Also note that we expect you to do your own work. This is not a script writing service, so "something which can go with the existing script" will have to be something you write from the solutions you find.