#!/usr/bin/perl print "Content-type: text/html\n\n"; 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 = "Rob"; $payment = 2000.00; $rate = .05; $term = 20; $number = 1; $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"; print "Your annuity is $annuity\n"; print "</body>"; print "</html>";