#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use IO::Socket::SSL;
$IO::Socket::SSL::DEBUG = 3;

my $mailfrom = 'info@meinserver.tld';
my $mailto   = 'test123@meinserver.tld';
my $subject  = 'Test für SMTP SSL';
my $mailtext = 'TEST<br>123';
		   
use MIME::Lite;
my $msg = MIME::Lite->new(
           From    => $mailfrom,
           To      => $mailto,
           Subject => $subject,
           Type    => "multipart/related",
      );
  $msg->attach(
          Type => "text/html",
          Data => $mailtext,
      );

use Net::SMTP;

my $smtpserver = "mail.meinserver.tld";
my $user = 'test123@meinserver.tld';
my $pass = 'V3r7SeCw21';
my $mailer = Net::SMTP->new(
      $smtpserver,
      Port    =>      25,
      User    =>      $user,
      Password=>      $pass,
      SSL     =>      0,
	  Debug   =>      1,
);
$mailer->starttls();
$mailer->mail($mailfrom);
$mailer->to($mailto);
$mailer->data;
$mailer->datasend($msg->as_string);
$mailer->dataend;
$mailer->quit;