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