Patton Industries

#!c:\phpdev\perl\bin\perl.exe print "Content-type: text/html\n\n"; # -----8<----- ##

##

# -----8<-----
else {
print "Content-type: text/html\n\n";    # Line moved here.
print "\n";
print "Patton Industries\n";
# -----8<-----

##

##

my $cgi = new CGI();     # Declare this near the top of the script.
print $cgi->header();    # In place of  your "Print: content-type..." statement.