#!/usr/local/bin/perl # I like POST's now print<Compound Interest Rate Calculation Header read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); if (length($in) < 2) { print<

Starting Value of Investment:
Final Value of Investment:
Input Total Duration in Years:

InputForm } else { @f = split("&",$in); for ($i=0; $i<=$#f; $i++) { ($key,$val) = split("=",@f[$i]); if ($key =~ /yr/) { $yr = $val; } if ($key =~ /st/) { $st = $val; } if ($key =~ /en/) { $en = $val; } } $tr = $en/$st * 100; $ar = (10 ** ((log ($tr/100)/log(10))/$yr)) - 1; printf("

Starting Value \$ %6.2f

\n",$st); printf("

Ending Value \$ %6.2f

\n",$en); printf("

Total Yield %6.2f %%

\n",$tr); printf("

over %4d Years

\n",$yr); printf("

Annual Yield %9.4f %%

\n",$ar*100); print "

Here is the full table

\n"; print "

Year	Start	Interest	End\n"; $v_end = $st; for ($i=0; $i<$yr; $i++) { $v_strt = $v_end; $iv = $v_strt * $ar; $v_end = $v_end + $iv; printf("
%2d	%8.2f	%8.2f	%8.2f\n", $i+1, $v_strt, $iv, $v_end); } print "

\n"; }