Code (Perl)

sub tomail {
    my ( $MAIL, $mailout ) = @_;
    my ( $fromheader, $toheader, $subject, $message, $charsetheader ) =
      @{$mailout};
    print {$MAIL} "To: $toheader\n"           or croak "$croak{'print'} mail";
    print {$MAIL} "From: $fromheader\n"       or croak "$croak{'print'} mail";
    print {$MAIL} "X-Mailer: YaBB Sendmail\n" or croak "$croak{'print'} mail";
    print {$MAIL} "Subject: $subject\n"       or croak "$croak{'print'} mail";
    print {$MAIL} "MIME-Version: 1.0\r\n" or croak "$croak{'print'} mail";
    print {$MAIL} "$cte\n" or croak "$croak{'print'} mail";
    print {$MAIL} "Content-Type: text/html\; charset=$charsetheader\r\n"
      or croak "$croak{'print'} mail";
    $message =~ s/\r\n/\n/gsm;
    print {$MAIL} "<pre $pre>$message</pre>\n" or croak "$croak{'print'} mail";
    return;
} 

Code

To: xxx
From: "Jopii's YaBB Forum" <xxx>
X-Mailer: YaBB Sendmail
Subject: Neue Mail wegen Queue
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Content-Type: text/html; charset=UTF-8
Message-Id: <20241204143330.A83D540E4C@tuennes.jopii.de>