$mail_method = 1;
$mail_program = "/usr/sbin/sendmail -t";  # overriding default "/usr/lib/sendmail -t -oi -oem"
$email_from = 'test@domain.com';
$email_to = 'neil@domain.com';
$email_subject = 'foo';
$email_text = 'bar';

$msg = MIME::Lite->new( 
    From    =>'$email_from',
    To      =>'$email_to',
    Subject =>'$email_subject',
    Type    =>'multipart/mixed',
    Data    =>'$email_text'
);

if ($mail_method == 1) {
  MIME::Lite->send('sendmail', $mail_program) or die "Sendmail failed";
} elsif ($mail_method == 2) {
  MIME::Lite->send('smtp', $smtp_address, Timeout=>$smtp_timeout) or die "SMTP send failed";
} else {
  warn "Unknown mail_method $mail_method!  Trying default.\n";
  MIME::Lite->send() or die "Default send method (Sendmail) failed";
}