sub secure {
	if ($pass eq $pwc) {
		return &main_page;
	}
	&header;
	print qq~<table class="heading">
	etc.