TESTS<title></head> <body> <h3>OUTPUT:</h3> <pre> $id $header </pre> </body> </html> EOH

#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use CGI::Session; my $cgi=CGI->new(); print $cgi->header(); warningsToBrowser(1); my $session = CGI::Session->new(); my $id=$session->id(); my $header=$session->header(); print < TESTS<title></head> <body> <h3>OUTPUT:</h3> <pre> $id $header </pre> </body> </html> EOH