sub usernameCheck
{
    my ($query, $self) = @_;
    #my $enteredusername = $query->param('r_username');
    # check if its an AJAX submit
    if ( $query->param('ajax') ) {   
        my $usernamecheck = check_usernames($enteredusername);
        my $json = to_json($usernamecheck);
        print "Content-type: text/html\n\n";
        $self->header_add(-type => 'application/json');
        print $json;
        exit;
    }
}   
    
    
sub check_usernames
{
    my ($t) = @_;
    # pretend like we're doing some heavy task!
    #my $answer = checkdbforusername($t);
    sleep 0;
    my $userresult = {
        username => $t,
    };
    my $userresult2 = {
        username => $t,
        };
        if($answer == 1)
        {
            return $userresult;
        }
    else
        {
            return $userresult2;
        }
}