#!/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);