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