Mega Code Archive

 

Categories / Perl / CGI

 

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!"; }