sub send_mail
{
my $time = strftime("%H%M%S",localtime(time));
my $subject = "Testmail $time";
my $text = "Dies ist eine Testmail";
MIME::Lite->send('smtp', $mailserver, Timeout=>90);
my $message = MIME::Lite->new(
From=>'testacc@test.com',
To=>'killeruser@web.de',
Cc=>'test1@example.org',
Cc=>'test2@example.org',
Cc=>'test3@example.org',
Subject=>"$subject",
Type=>'text',
Encoding=>'quoted-printable',
Data=>"$text, $time"
);
$message->send();
}