#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI qw(:standard -debug);
use strict;
my $name; # user's name
my $payment; # payment amount
my $rate; # interest rate
my $term; # interest rate
my $number; # term in years
my $annuity; # annuity amount
$name = param('Name');
$payment = param('Payment');
$rate = param('Rate');
$term = param('Term');
$number = param('Number');
$annuity = $number * $payment / $rate * (2.7182818 ** ($rate * $term) - 1);
print "<html>\n";
print "<head><title>Annuity</title></head>\n";
print "<body>\n";
print "<h1>Annuity Calculation</h1>\n";
print "Hello, $name!<br />\n";
printf "Your annuity is \$ %.2f\n", $annuity;
print "</body>";
print "</html>";