Select Code to Download

use FindBin qw($Bin $Script);
use lib "$FindBin::Bin/../lib";
...
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];
...
    </head>
ENDOFTEXT
}

Cookie: CGISESSID=52308b820ff99fd3d4dca46c4b7a5280