#!/usr/bin/perl -wT
# Example 5-1

use strict;

print qq(Content-type: text/html\n);
print qq(Set-Cookie: username=Fred Flintstone; );
print qq(expires=Mon, 01-Jan-2001 00:00:00 GMT; );
print qq(path=/\n\n);

print qq(A cookie has been set in your browser...<P>);
print qq(<A HREF="example_5-2.cgi">);
print qq(Click to view the cookie</A>);