perl script for sending mail with sendmail command