sub add_new {
	my $user	= $q->cookie('username');
	my $pass	= $q->cookie('password');
	
	if ($cookie eq $user, $cookie1 eq $pass) {
	print<<HTML;
        ...
	HTML
		}else {
		error_page();
	}
}