Cookies คือ ไฟล์ที่ทาง website ต่าง ๆ สร้างขึ้นมาในเครื่อง Computer ของผู้เรียกชมเว็บไซต์นั้น ๆ โดยคุกกี้จะมีวัตถุประสงค์ในการเก็บข้อมูล ตรวจสอบ จากผู้ที่เรียกใช้งานเว็บไซต์นั้น โดยไฟล์คุกกี้จะมีลักษณะเป็น Text File ในการเก็บข้อมูลต่าง ๆ

การสร้างและการเรียกใช้งาน Cookies ของ Perl

#!/usr/bin/perl
#use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use CGI::Cookie;
my $c = new CGI::Cookie(-name => 'cookie name', -value => "cookie value", -expires => 'expiration time', -domain => 'cookie domain',
-path => 'use cookie path',
-secure => 1
);
print "Set-Cookie: $c\n"; # ส่งคุ๊กกี้

:: Example ::

การส่ง Cookie

#!/usr/bin/perl
#use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use CGI::Cookie;
my $c = new CGI::Cookie(-name => 'website', -value => "dwthai", -expires => '+1M'); # กำหนดชื่อ Cookie ว่า website เก็บค่า dwthai และคุกกี้นี้มีอายุ 1เดือน นับจากวันทีีมีการสร้าง Cookie นี้ขึ้น
print "Set-Cookie: $c\n"; # ส่ง Cookie


การรับค่า Cookie

%cookies = fetch CGI::Cookie;
$cookie_value = $cookies{'website'}->value; # รับค่าคุกกี้โดยระบุชื่อคุกกี้ที่ต้องการ
print "Content-Type: text/html\n\n";
print $cookie_value;  # แสดงค่าของ Cookie