#!/usr/bin/perl srand(time); $cid = int(rand(1000000)); print "Set-Cookie: NAME=$cid\n"; print "Content-type:text/html\n\n"; print <Welcome

Welcome!

Your cookie is $cid.

EndOfHTML