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;
}