post '/' => sub {
my $username = $q->param("username");
my $password = $q->param("password");
		my $loginstatement = 'SELECT * FROM account WHERE username=? and password=?';
		my $sth = $dbh->prepare($loginstatement) or die $dbh->errstr;
		$sth->execute(params->{'username'}, params->{'password'}) or die $sth->errstr;
		my (@userID) = $sth->fetchrow_array;
		if ($userID[0] != 0 && $userID[11] ==1 ){
		
				my $sessionstatement = "SELECT * FROM sessions";
				my $sth2 = $dbh->prepare($sessionstatement) or die $dbh ->errstr;
				my (@sessID)= $sth2->fetchrow_array;
				if($userID[3] == $sessID[1]) {
				session 'logged_in' => true;
				}