sub login {
	my $username	= $q->param('username');
	my $password	= $q->param('password');
	my $SQL	= "SELECT username, password FROM user WHERE username = '$username'";
	my @row;
	@row = $dbh->selectrow_array($SQL);

	unless (exists $row[0]) {
		&error_page;
		exit;
	}

	unless ($password eq "$row[1]") {
		error_page();
	}
	la_menu();
}#end#of#sub#login
sub error_page {
	print	$q->start_html(-title=>"some.com| ERROR", -style=>{src=>"../../mycss.css"});
	print<<HTML;
	<p class="edit_header"><strong>some.com | ERROR</strong></p>
	<h2 class="error">Invalid username or password</h2>
	<p class="footer"><a href="http://www.some.com">some.com</a></p>
HTML
} #end#of#sub#error_page

sub la_menu {
	if ($q->param( "add" )) {
		add_new();
	} elsif ($q->param( "edit" )) {
			edit();
	}
	print<<HTML;
	<form method="get" name="la_manu" class="edit">
	<input name="edit" type="submit" value="Edit Properties " class="buttons">
	<input name="add" type="submit" value="Add New" class="buttons">
	</form>
HTML
	
}#end#of#sub#la_menu

##</code><code>##

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();
	}
}