use MIME::Lite;
MIME::Lite -> quiet (1);

my $last=eval{
  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";
  return 1 if $msg -> last_send_successful ();
}
if (defined $last && $last) { print "Letzte Sendung erfolgreich\n"; }
else { print "Sendung FEHLERHAFT! ($@)\n"; }