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