use MIME::Lite;
MIME::Lite -> quiet (1);
MIME::Lite -> send (
        'smtp',
        $config{smtp_host},
        Timeout         => 60,
        AuthUser        => $config{smtp_user},
        AuthPass        => $config{smtp_pass},
);
my $msg = MIME::Lite -> new (
        Encoding        => 'quoted-printable',
        From            => "$config{from_name} <$config{from_mail}>",
        To              => "$config{empfaenger_name} <$config{empfaenger_mail}>",
        Subject         => $config{betreff},
        Type            => 'TEXT',
        Data            => $config{text},
);
my $str = $msg -> as_string;
print "Mail wird verschickt...\n";
$msg -> send or die "Mist\n";
my $last = $msg -> last_send_successful ();
if (defined $last && $last) { print "Letzte Sendung erfolgreich\n"; }
else { print "Sendung FEHLERHAFT!\n"; }

D:\>perl mime_mail.pl
Mail wird verschickt...
Uncaught exception from user code:
        SMTP auth() command failed:
authentication failed (#5.7.1)

 at C:/strawberry/perl/site/lib/MIME/Lite.pm line 2873
        MIME::Lite::send_by_smtp('MIME::Lite=HASH(0xcee58c)', '*************', 'Timeout', 60, 'AuthUser', '******', 'AuthPas
s', '********') called at C:/strawberry/perl/site/lib/MIME/Lite.pm line 2574
        MIME::Lite::send('MIME::Lite=HASH(0xcee58c)') called at mime_mail.pl line 42