here's some sample code I got...I get the message: "no connection could be made because the target machine actively refused it" Advice please?

use Mail::Sendmail;

  %mail = ( To      => 'brejen@gmail.net',
            From    => 'brejen@comcast.net',
            Message => "This is a very short message"
           );

  $mail{Smtp} = 'smtp.mail.yahoo.com'; 
  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;
[download]