use Mail::Sendmail;

sub notify {
   my ($recipient, $message) = @_;
   my %mail = ( 
      To      => $recipient,
      From    => 'me@hey.com',
      Message => $message
   );
   sendmail(%mail) or die $Mail::Sendmail::error;
}

##</code><code>##

use Mail::Sendmail;
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} ,'smtp.someserver.com';

sub notify {
  my ($recipient, $message) = @_;
  %mail = ( To    => $recipient,
          From    => 'me@here.com',
          Message => $message
         );
  sendmail(%mail) or die $Mail::Sendmail::error;
}