use MIME::Lite
$user = "user";
$pass = "password";

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


my $msg = MIME::Lite->new
  (
  From    => "user@gmail.com",
  To      => "user@gmail.com",
  Data    => "This is a test\n",
  Subject => "Test",
  );

$msg->send()