#!/usr/local/bin/perl5 -w
use CGI qw(:standard);
print header();
#retrieve a list of cookie that can be seen
@cookie_list=cookie();
print qq(
password incorrect
| cookie name | cookie value |
|---|
);
# print the value of each cookie
foreach $cookie(@cookie_list) {
$value=cookie($cookie);
print qq(| $cookie | $value |
);
}
print qq(
);