#!/usr/local/bin/perl ########################################################################## # cookie2: Read login cookies ########################################################################## use CGI "cookie"; print "Content-type: text/html \n"; print "\n"; $loginId = cookie('login'); # read the login cookie $name = cookie('name'); # read the name cookie if(! $loginId) { # is there no login id cookie print "

No Authorization to view this page"; print "

You must sign in first"; exit; } &print_form(); # print the html form exit(0); ############################################################################## sub print_form { print "\n"; print " Welcome to Our Site

Welcome to Our Site - $name

Blah... Blah... Blah... "; }