#!/usr/local/bin/perl5 -w

use CGI qw(:standard);

# construct a cookie
$cookie_3530=cookie(-name=>'csc3530',-value=>"you have visited an important page",-domain=>'cse.cuhk.edu.hk',-path=>'/');
# send the cookie to user
print header(-cookie=>$cookie_3530);		
# print a page
print <<END_OF_HTML
<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>
<p>A cookie name csc3530 is place, try <a href="getcookie.cgi">here</a> to get it</p>
</body>
</html>
END_OF_HTML

