my $message = MIME::Lite->new(
                From => 'skriptname',
                To => "$mailliste",
                Subject => "Der Text",
                Type => 'TEXT'
        );
        $message->send();
        exit;