use Mail::SendEasy ;

  my $mail = new Mail::SendEasy(
  smtp => 'smtp.mail.yahoo.com' ,
  user => 'yahoo_id' , #no @yahoo.com
  pass => 'yahoo_password' ,
  ) ;
  
  my $status = $mail->send(
  from    => 'yahoo_id@yahoo.com' ,
  from_title => 'Whatever' ,
  reply   => 'yahoo_id@yahoo.com' ,
  error   => 'yahoo_id@yahoo.com' ,
  to      => 'where_ever' ,
  cc      => 'where_ever_2' ,
  subject => "MAIL Test" ,
  msg     => "The Plain Msg..." ,
  html    => "<b>The HTML Msg...</b>" ,
  msgid   => "0101" ,
  ) ;
  
  if (!$status) { print $mail->error ;}