#!/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(<html>
		<head>
		<meta http-equiv="Content-Type" content="text/html; charset=big5">
		<meta http-equiv="Content-Language" content="en-us">
		<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
		<meta name="ProgId" content="FrontPage.Editor.Document">
		<title>password incorrect</title>
		</head>
		<body><table><tr><th>cookie name</th><th>cookie value</th></tr>
		);
# print the value of each cookie
foreach $cookie(@cookie_list) {
	$value=cookie($cookie);
	print qq(<tr><td> $cookie </td><td> $value </td></tr>);
}
print qq(</table></p></body></html>);


