1use strict;
2use warnings;
3
4use Net::SSLGlue::SMTP;
5my $smtp = Net::SMTP->new( 'mail.gmx.net', Debug => 1 ) or die $@;
6$smtp->starttls( SSL_ca_path => "/etc/ssl/certs" ) or die $@;
7$smtp->auth( '123456','password' );
8$smtp->mail( 'me@example.org' );
9$smtp->to( 'you@example.org' );
10$smtp->data;
11$smtp->datasend( <<EOD );
12From: me
13To: you
14Subject: test test
15
16lalaal
17EOD
18$smtp->dataend;
19$smtp->quit;
20
21