<perl>
 if ($cmd eq "calc") {
  $Miete =~ s/,/./;
  $Steigerung =~ s/,/./;
  $last=$Miete;
  out "<table><tr>\n";
  for ($i=1; $i<=30; $i++) {
   $output[$i]=sprintf("%.2f", $last);
   $last=$last+(($last/100)*$Steigerung);
  }
  $sum1=0;
  for ($i=1; $i<=10; $i++) {
   out "<td bgcolor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Monatsmiete im ".($i+0)." Jahr</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">".$output[$i+0]."</font></td>\n";
   $sum1 += ($output[$i+0]*12);
   out "<td bgcolor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Monatsmiete im ".($i+10)." Jahr</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">".$output[$i+10]."</font></td>\n";
   $sum2 += ($output[$i+10]*12);
   out "<td bgcolor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Monatsmiete im ".($i+20)." Jahr</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">".$output[$i+20]."</font></td>\n";
   $sum3 += ($output[$i+20]*12);
   out "</tr><tr>\n";
  }
  $sum2 += $sum1;
  $sum3 += $sum2;
  out "<td bgColor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Summe der Mieten nach<br>10 Jahren:</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">$sum1</font></td><td bgColor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Summe der Mieten nach<br>20 Jahren:</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">$sum2</font></td><td bgColor=\"#eaf0f2\"><font size=\"1\" face=\"Arial,Helvetica\">Summe der Mieten nach<br>30 Jahren:</font></td><td bgcolor=\"#d9e4e8\" align=\"right\"><font size=\"1\" face=\"Arial,Helvetica\">$sum3</font></td>\n";
  out "</tr></table>\n";
 } else {
  out <<EOF;
  <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
   <input type=hidden name="htx=" value="$htx">
   <input type=hidden name="cmd=" value="calc">
   <table cellspacing=10>
    <tr>
     <td align="right"><b>Ihre monatliche Kaltmiete:</b></td>
     <td><input name="Miete=" size=30 value=""></td>
    </tr>
    <tr>
     <td align="right"><b>Voraussichtliche Mietsteigerung:</b></td>
     <td><input name="Steigerung=" size=30 value="2.75"> %</td>
    </tr>
    <tr>
     <td colspan="2" align="center">
      <input type=submit value="Berechnen"> 
     </td>
    </tr>
   </table>
  </form>
EOF
 }
</perl>