I added a subroutine to the existing script .
sub readCookies
{
use CGI qw/:standard/;
if (my $time = cookie('WBSession')) {

$testVal = "Cookie Exists";

} else {
$testVal = "Cookie Does Not Exists";
}

return $testVal;
}
I also added below one line which prints on the top of the screen.
print "Content-type: text/html \n";
print "set-cookie: WBSession=$sessionInfo; path=/cgi-bin;\n\n";
print "set-cookie: TestCookie=$sessionInfo; path=/cgi-bin;\n\n";// added and this gets prints
If you wish I would like to email the code which I am working on
Thanks
blazix