#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

}