my $domain = Net::SMTP->new('smtp.gmail.com', Timeout => 30);
my $domainhost = $domain->domain;	
if (not $smtp = Net::SMTP::TLS->new('smtp.gmail.com',
							Hello => $domainhost,
                            Port => 587,
							User => $from,
							Password => $password,
							Timeout => 30,
                            Debug => 1)) {die "not connected\n";}

	
$smtp->to("some1@gmail.com\n",
		  "some2@gmail.com\n");
$smtp->data();
$smtp->datasend("From: " . "some_from" . "\n");
$smtp->datasend("\n");
$smtp->datasend('Subject: some_subject');
$smtp->datasend("\n");
$smtp->datasend("test");
$smtp->dataend();
$smtp->quit;