#!/usr/bin/perl ####### # # cookie demo # #### use strict; use warnings; print "Set-cookie: Hi mom. This is a cookie demo\n"; print "Content-type: text/html\n\n"; print qq{ demo cookie demo };