no data in this part
 at skript.pl line

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

        my $message = MIME::Lite->new(
                From => 'skript.pl',
                To => "$emailliste",
                Subject => "Meine Subject-Zeile",
                Data => "$message_body"
        );

for my $recipient($emailliste,$smsliste){
    my $body = $recipient eq $smsliste ? "" : $message_body;
        my $message = MIME::Lite->new(
               From => 'skript.pl',
               To => $recipient,
               Subject => "Meine Subject-Zeile",
               Data => $body,
       );
    # ...
}

for my $recipient($emailliste,$smsliste){