$URL_ROOT="path to my cgi directory/cgi-bin";
%url = ("$URL_ROOT/neko.ppl" => 4,
	"$URL_ROOT/plop.ppl" => 2,
	"$URL_ROOT/y2k.ppl" => 2,
	"$URL_ROOT/thunder.ppl" => 2,
	"$URL_ROOT/ptk_test.ppl" => 2,
	"$URL_ROOT/quest.ppl" => 2,
	"$URL_ROOT/tktetris.ppl" => 2,
       );

$sec_level= $url{$url} || 1;


print LOG "  security level=$sec_level\n";
close LOG;
                                                    
print "Content-type: application/x-perlplus:.ppl:Perl\n\n";
print "$sec_level";