my @hdr = ();
	push @hdr, 'Date: '       . strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time()));
	push @hdr, 'From: '       . encode('MIME-Header', $from) if (defined($from));
	push @hdr, 'To: '         . encode('MIME-Header', $rcpt) if (defined($rcpt));
	push @hdr, 'Cc: '         . encode('MIME-Header', $copy) if (defined($copy));
	push @hdr, 'Reply-To: '   . encode('MIME-Header', $copy) if (defined($copy));
	push @hdr, 'Subject: '    . encode('MIME-Header', $subj) if (defined($subj));
	push @hdr, 'MIME-Version: 1.0';
	push @hdr, 'Content-Type: text/plain; charset=utf-8';
	push @hdr, 'Content-Transfer-Encoding: base64';
	my $smtp = Net::SMTPS->new('smtp.gmail.com', 'Port'=>587, 'doSSL'=>'starttls', 'Debug'=>0);
	$smtp->auth('...', '...');
	$smtp->mail($from);
	$smtp->to($rcpt) if (defined($rcpt));
	$smtp->cc($copy) if (defined($copy));
	$smtp->data();
	$smtp->datasend("$_\n") foreach (@hdr);
	$smtp->datasend("\n");
	$smtp->datasend(encode_base64(encode('UTF-8',$body)));
	$smtp->datasend("\n");
	$smtp->dataend();
	$smtp->quit;

...
Net::SMTPS=GLOB(0x638e600)>>> sNGC0LUgMzAwINC00L4gMjAxNS0xMC0yNAoKCtCh0L/QuNGB0L7QuiAn0KHRgNC10LTRgdGC0LIg
Net::SMTPS=GLOB(0x638e600)>>> 0LTQvtGB0YLQsNGC0L7Rh9C90L4nIC0gMjgzMwoK0KHQv9C40YHQvtC6ICfQndC1INGD0LrQsNC3
Net::SMTPS=GLOB(0x638e600)>>> 0LDQvSDRgtC10LvQtdGE0L7QvScgLSAzMQoK0KHQv9C40YHQvtC6ICfQo9C20LUg0L7RgtC/0YDQ
Net::SMTPS=GLOB(0x638e600)>>> sNCy0LvRj9C70L7RgdGMJyAtIDQK
Net::SMTPS: Net::Cmd::datasend(): unexpected EOF on command channel:  at ./test.pl line 164.
Net::SMTPS: Net::Cmd::_is_closed(): unexpected EOF on command channel:  at ./test.pl line 165.
Net::SMTPS: Net::Cmd::_is_closed(): unexpected EOF on command channel:  at ./test.pl line 166.
Net::SMTPS: Net::Cmd::_is_closed(): unexpected EOF on command channel:  at ./test.pl line 167.
readline() on closed filehandle GEN0 at /usr/lib/perl/5.14/IO/Handle.pm line 178.

	$body = encode_base64(encode('UTF-8',$body));
	$smtp->datasend($_) foreach (unpack("(A4096)*", $body));