I'm trying to perl -w the following:
#bonus.cgi - calculates a bonus amount and rcreates a dynamic web page which contains form data & a bonus amount
print "Content-type: text/html\n\n";
use CGI qw(:standard);
#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 "<html>\n";
print "<head><title>Patton Industries</title><basefont size=5></head>\n";
print "<h1>Bonus Calculation</h1>\n";
print "<body>\n";
print "Salesperson: $name<br />\n";
print "Your bonus is \$$bonus.<br /><br />\n";
print "You entered a sales amount of \$$sales and a \n";
print "bonus rate of $rate.<br />\n";
print "</body>\n";
print "</html>\n";
In several places up and down the DOS response, it tells me "Use of uninitialized value in concatenation (.) or string at bonus.cgi line 'varies'."
I haven't a clue what it's not liking about the code. I've checked it against what the book has several, several times and can find absolutely no discrepency.