Re^4: HTTP headers and redirection

I moved it and it still doesn't work...this is getting frustrating. If I leave my print location line at the top it gives me a page could not be displayed. When I leave it like it is below it gives me an internal server error. Any ideas?

#!c:\phpdev\perl\bin\perl.exe
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 "") {
     print "Location: http://localhost/cgi-bin/c12ex3b.html\n\n";
}

elsif ($Sales == "") {
      print "Location: http://localhost/cgi-bin/c12ex3b.html\n\n";
}

elsif ($Rate == "") {
      print "Location: http://localhost/cgi-bin/c12ex3b.html\n\n";
}

else {
print "Content-type: 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^4: HTTP headers and redirection Download Code