print $lpr "                                         \n";
print $lpr "      +                                + \n";
print $lpr "                                         \n";
print $lpr "        Firma:                                Ihre Kundennummer: $kdnummer \n";
print $lpr "        $REkdfirma                       \n";
print $lpr "        z. Hd. $REkdansprechpartner \n";
print $lpr "        $REkdstrasse $REkdhausnummer     \n";
print $lpr "                                              Rechnungsnummer:   $renummer \n";
print $lpr "        $REkdland-$REkdplz $REkdort      \n";
print $lpr "                                         \n";
print $lpr "                                         \n";
print $lpr "      +                                + \n";
print $lpr "21 \n";
print $lpr "_  \n";
print $lpr "       Rechnung \n";
print $lpr "       -------- \n";
print $lpr "25 \n";
print $lpr "26 \n";