#!/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 "\n";