Select Code to Download

use Mail::Sendmail;

...
   );
   sendmail(%mail) or die $Mail::Sendmail::error;
}

use Mail::Sendmail;
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} ,'smtp.someserver.com';
...
         );
  sendmail(%mail) or die $Mail::Sendmail::error;
}