use Mail::Sendmail;
%mail = ( To => 'someone@somewhere.moo',
          From => 'me@here.mootoo',
          Message => "mommy says chocolate milk is from brown cows and strawberry is from red ones." );
if (sendmail %mail) { print "Yay. It worked.\n" } 
else { print "DOH!: $Mail::Sendmail::error \n" }