CGI cookie example of how to create and fetch cookies

CGI Cookie example

#!/usr/bin/perl

use CGI;
use CGI::Cookie;

# Fech all cookies and select a cookie named 'ID'
# Set default value of 0 if not exist
%cookies = CGI::Cookie->fetch;
$id = (defined $cookies{'ID'}) ? $cookies{'ID'}->value : 0;

#Create a new cookie with CGI
#Expiration of 3 months
$cgi = new CGI;
$cookie1 = $cgi->cookie(-name=>'ID',-value=>++$id,-expires=>'+3M');

#Send cookie to the browser by printing it
#Its not necessary to add test/html content type header
#Multiple cookies can be send by [$cookie1, $cookie2, $cookie3]
print $cgi->header(-cookie=>[$cookie1]);

#HTML can be printed here
print "<h1>Hey</h1>";