...
sub WebPassWrite {
	my $Pass = shift;
	open(PAS, ">hf");
	print PAS $Pass;
	close(PAS);
	my $HTML ="";
	$HTML .= "Password Stored<br><div class=\"MenuItem\" "
		."onclick=\"SetupPassCheck(['Page'],['Title','Content'])\">"
		."Continue</div>";
	return $HTML;
}
...