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.