use FindBin qw($Bin $Script); use lib "$FindBin::Bin/../lib"; use strict; use warnings; use Text::CSV; use CGI; use CGI::Session; use Net::LDAP; use DBI; use LWP::Simple; ##

##

my $cgi = new CGI;
my $session = new CGI::Session(undef, $cgi, {Directory=>'c:\temp'});

##

##

sub output_header {
	my $current_session = $_[0];
	my $wrb_url = $_[1];
# so what about the NPH thing?!
	print $current_session->header(-nph=>1);
#	print $current_session->header();
	print <

	
... [loads of HTML stuff goes here . . . ]
...
...
	
ENDOFTEXT
}

##

##

Cookie: CGISESSID=52308b820ff99fd3d4dca46c4b7a5280