Send email using perl

I need a module written in Perl that sends out email using a third party SMTP server like smtp.att.yahoo.com. The following code i have is not working... this is to show you what I have. It just says that mail in queue and never sent. Anyway I need this script to work on my desktop computer in Windows XP Pro, Activestate Perl, Mail:Sendmail install. Let me know if you need more info. Thank you use Mail::Sendmail; %mail = ( To => 'me@[login to view URL]', From => 'contactus@[login to view URL]', Message => "This is a very short message", Subject => "Pie in the fridge", smtp => '[login to view URL]', auth => {user=>"someone@[login to view URL]", password=>"yourpassword"} ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log;