use strict;
use warnings;
use lib '/Users/SaumyaSingh/lib';
use MIME::Lite;

my $user = "username";
my $pass = "pass";

MIME::Lite->send("smtp","smtp.mail.yahoo.com",
       AuthUser=>$user, AuthPass=>$pass,Port => 465, Debug => 1);


my $msg = MIME::Lite->new
  (
  From    => 'saumya_mmmec@yahoo.com',
  To      => 'saumya.singh@ndsu.edu',
  Data    => "This is a test\n",
  Subject => "Test",
  );

$msg->send()