Re^5: HTTP headers and redirection

Thanks to all who gave input. I know this isn't the perfect way to make this script work, but it does. What does everyone think?? I'm a novice. Could you critique so I can get a better handle on this?

#!/usr/bin/perl
use CGI qw(:standard -debug);
#prevent Perl from creating undeclared variables
use strict;

#declare variables
my ($Salesperson, $Sales, $Size, $Rate, $Percentage, @records, @errors
+, $errors, $bonus);


#assign input items to variables
$Salesperson = param('Salesperson');
$Sales = param('Sales');
$Rate = param('Rate');
$Percentage = param('Percentage');

#calculate bonus rates
$bonus = $Rate * $Sales;
  if ($Salesperson eq "" or $Sales == "" or $Rate == ""){
        print "Location: http://carrotcake.nsm.tridenttech.edu/c12ex3b
+.html\n\n";
}

elsif ($Sales == "") {
        print "Location: http://carrotcake.nsm.tridenttech.edu/c12ex3b
+.html\n\n";
}

elsif ($Rate == "") {
        print "Location: http://carrotcake.nsm.tridenttech.edu/c12ex3b
+.html\n\n";
}

else {
print "Content-tuype: text/html\n\n";
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: $Salesperson<BR>\n";
printf "Your bonus is: \$%.2f<BR><BR>\n", $bonus;
printf "You entered a sales amount of \$%.2f and a \n", $Sales;
printf "bonus rate of %.1f%%.<BR>\n", $Rate * 100;
print "</BODY>\n";
print "</HTML>\n";
print "</BODY></HTML>\n";
}
[download]

Comment on Re^5: HTTP headers and redirection Download Code