Use a module. Mail::Sendmail:

use Mail::Sendmail;

%mail = ( To      => $recipient,
          From    => $from_email,
          Subject => $subject,
          Message => $body
);

sendmail(%mail) or die $Mail::Sendmail::error;
[download]

[ ar0n ]