#!D:/Perl/bin/perl
#bonus.pl - calculates a bonus amount and creates a dynamic Web page
#that contains form data and a bonus amount
print "Content-type: text/html\n\n";
use CGI qw(:sandard -debug);
#prevent Perl from creating undeclared variables
use strict;
#declare variables
my ($name, $sales, $rate, $bonus);
#assign values to variables
$name = param('Salesperson');
$sales = param('Sales');
$rate = param('Rate');
#calculate bonus amount
$bonus = $sales * $rate;
#create Web page
print "\n";
print "Patton Industries\n";
print "Bonus Calculation
\n";
print "\n";
print "Salesperson: $name
\n";
print "Your bonus is: $bonus
\n";
print "You entered a sales amount of $sales and\n";
print " a bonus rate of $rate
\n";
print "\n";
print "\n";