#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use utf8;
use MIME::Lite;

my $msg = MIME::Lite->new(
    From    => 'myauthenticatedaccount@vivaldi.net',
    To      => 'spam@gwendragon.de',
    Subject => 'Doctooooooor Who?!!!',
    Data    => "Daaaaaleks!!!!"
);

$msg->send(
    'smtp',
    'smtp.vivaldi.net', 
    Timeout  => 60,
    AuthUser => 'myauthenticated1234account@vivaldi.net',
    AuthPass => "th1sS5ap4sswordwith!eryl000ng",
    Debug=>1 
);