use strict;
use warnings;
use MIME::Lite;

my $user = 'james@gmail.com';
my $pass = 'james12';

my $msg = MIME::Lite->new(
From =>'James',
To =>'james@hotmail.com',
CC =>'',
Subject =>'yah it worked',
Type =>'Hello world'
);

MIME::Lite->send('smtp','smtp.gmail.com:465',
AuthUser=>$user, AuthPass=>$pass);