#!/usr/bin/perl -w use strict; use CGI qw(header cookie); if (cookie("val")) { print header(),"Your cookie is still set"; } elsif (param("val")) { print header(-cookie=>cookie( -name =>'val', -value=>param("val"), -expires=>'+1M')),"Success! Your cookie should be set"; } else { print header(),q(
); }