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"; }