add sendEmail perl script.