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