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