[stevencl2000]

I have this program, where it can set the cookie, and produce the header like:

Set-Cookie: student_login=pearloh; path=/ Date: Tue, 15 Jun 2004 04:13:38 GMT Content-Type: text/html; charset=ISO-8859-1

i have set the cookie in perl this way:

my $student_cookie = cookie(-name => 'student_login',
-value=> $student_login);
print header(-cookie =>$student_cookie);


but, the following web page after this page, cant seemed to retrieve the cookie...

<td width="20%">
<div align="left">
<font color="#ffffff" size="1"><b>
<font face="Verdana, Arial, Helvetica, sans-serif">
$student_login Answer</font></b></font></div>
</td>


Please HELP...

[reneeb]

You have to get the cookies' value. You can do like this:

skript1:

#! /usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
my $cookie = $cgi->cookie(-name => 'student_login', -value => $student_login);
print $cgi->header(-type => 'text/html', -cookie => $cookie),
       $cgi->start_html(),
       $cgi->h2('The cookie is set'),
       $cgi->end_html();

skript2:

#! /usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
my %cookie_values = $cgi->cookie('student_login');
print $cgi->header(-type => 'text/html'),
       $cgi->start_html(),
       $cgi->h2("The cookies' value is ".$cookie_values{value}),
       $cgi->end_html();