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

Welcome back!

Raw cookie: $cdata

Your cookie is $cid.

EndOfHTML