Sites/index.cgi 1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 &main(); 7 exit; 8 9 sub main { 10 if ($ENV{'HTTP_COOKIE'}) { 11 if (&check_ck()) { &private_pg(); } 12 else { &basic_pg(-2); } 13 } 14 else { 15 if ($ENV{'REQUEST_METHO…