CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Read cookie value
#!c:/perl/bin
use CGI;
$q1 = new CGI;
print $q1->header;
$cookie1 = $q1->cookie('FIRST_NAME');
if($cookie1)
{
   print $cookie1;
}
else
{
  print "No such Cookie!";
}