sub send {
        my $ar=shift;
        my $message_body = $ar;
        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,
      );
   $message->send();
}