#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <Welcome back!
Welcome back!
EndOfHTML
$cdata = $ENV{'HTTP_COOKIE'};
print "Your cookies are:\n";
@cookies = split(/;/,$cdata);
foreach $i (@cookies) {
($name,$cid) = split(/=/,$i);
print "$name = $cid
\n";
}
print "