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