I've been trying to find an easy example online, but I don't understand them.
Here is what I got out of it, but it doesn't work:
Expand|Select|Wrap|Line Numbers
- use CGI qw/:standard/;
- use CGI::Cookie;
- $cookie = new CGI::Cookie(-name => 'filename', -value => 'grades');
- $cookie2 = new CGI::Cookie(-name => 'direction', -value => 'Reverse');
- print header(-cookie => [$cookie, $cookie2]);
- %cookies = fetch CGI::Cookie;
- $filename = $cookies{'filename'} -> value;
- $direction = $cookies{'direction'} -> value;
- print "Set-Cookie: $cookie\n";