#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
@cookieinfo=split(m#/#,$ENV{PATH_INFO});
shift(@cookieinfo);
foreach $cookie(@cookieinfo){
	print "Set-cookie: $cookie; path=/todd\n";
}
&htmlopen("Gimme Cookie!");
print "The following cookies have been set in your browser:<ul>\n";
foreach $cookie(@cookieinfo){
	print "<li>$cookie\n";
}
print "</ul>\n";
&htmlclose;