What you want to do is set the Sender. There are many better ways to send mail in perl besides calling sendmail. Most of the other methods let you set the sender easily. My favorites include MIME::Lite, Net::SMTP, and Mail::Sendmail. See the perl faq under sending email.