25 lines
410 B
Plaintext
Executable File
25 lines
410 B
Plaintext
Executable File
#!/usr/local/bin/perl5
|
|
|
|
# Simple example to dump all the cookies :-)
|
|
|
|
use CGI::Lite;
|
|
|
|
$cgi = new CGI::Lite;
|
|
%cookies = $cgi->parse_cookies;
|
|
|
|
print "Content-type: text/plain", "\n\n";
|
|
|
|
# We could also have used the method print_data, like so:
|
|
#
|
|
# $cgi->print_data;
|
|
#
|
|
# instead of manually iterating through the data.
|
|
|
|
while (($key, $value) = each %cookies) {
|
|
print "$key = $value\n";
|
|
}
|
|
|
|
exit (0);
|
|
|
|
|