#!/usr/bin/perl
# Program name: projest.cgi
require "subparseform.lib";

&Parse_Form;
$projcost = $formdata{'projcost'};
$projects = $formdata{'projects'};
$revenue = $formdata{'revenue'};

$average = $projcost / $projects;
$average = sprintf("%.2f", $average);
$grossprofit = $revenue - $projcost;

print "Content-type: text/html\n\n";
print "<P>Project Cost Last Year was $projcost dollars.";
print "<P>We completed $projects projects during the year. That works out to an average of $average cost per project.";
print "<P>out annual Project Revenue was $revenue dollars. We made a gross profit of $grossprofit dollars";