Hello, I am got a task to send Email so some group of people. This mail is to be send as per a scheduled calender. For this i am using MIME::Lite . Here is part of my code:

#!/usr/bin/perl -w
use strict;
use MIME::Lite;
my $msg = MIME::Lite->new(
        From => 'xyz@yahoo.com',
        To => 'xyz@yahoo.com',
        Subject => 'TESTMSG'
        
);
my $user="xyz";
my $pass="abc";
MIME::Lite->send('smtp','yahoo.com',AuthUser=>$user,AuthPass=>$pass);
[download]

Some times it shows Cannot connect to server, and sometimes nothing happens. My work field is actually related to electronics. So i have a very less knowledge about these SMTP server etc. things. Please help me for this work. Its urgent for me. If there is any other way to do so please explain. Thanks