#BP_FORM.pl
use strict;
use CGI;
my $INPUT = new CGI;

if ($INPUT->param('action') eq "bp_form") { &bp_form; }

sub bp_form {

	&bp_header;

use BusinessFormValidation;
my $webapp = BusinessFormValidation->new();
$webapp->run();

	&bp_footer;

}

sub bp_header {

print <<EOF;
This is the header, below the header will view the extra "Content-Type: text/html; charset=ISO-8859-1"
EOF

}

sub bp_footer {

print <<EOF;
This leads me to think that the extra header is coming from calling the "$webapp->run();" part of the form validation script.
EOF

}

##</code><code>##

#top of BusinessFormValidation.pm

 package BusinessFormValidation;
use base CGI::Application;
use CGI::Application::ValidateRM;
use Data::FormValidator;
use CGI;
	$CGI::DISABLE_UPLOADS = 0; 
    $CGI::POST_MAX = 1_751_120; #1.67mb
my $w = new CGI;