#!/usr/local/bin/perl # print<Deffered Payment Calculator Header read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); if ($in eq "") { print<

Defer for	days
Interest Rate
Principal
Term	months

InputForm } else { @f = split("&",$in); for ($i=0; $i<=$#f; $i++) { ($key,$val) = split("=",@f[$i]); $aa{$key} = $val; } $tt = $aa{"trm"}; $i = $aa{"int"} / 1200; $di = $aa{"int"} / 36500; $p = $aa{"prn"}; $d = $aa{"def"}; for ($j=0; $j<$d; $j++) { $p = $p * (1 + $di); } printf ("

Starting Balance %9.2f

\n",$p); $paymt = $p * $i / (1 - ((1 + $i) ** -$tt)); printf ("

Payment %9.2f

\n",$paymt); }