sub checkuser {
	my $obj = shift;
	my $FN = foo::get_attr($obj , 'FIRST_NAME');
	my $LN = foo::get_attr($obj , 'LAST_NAME');
	my $USERS;
	my @USERS;
	my $line = "";
	open( 'USERS' , 'file' );
	while ( $line = <USERS> ) {
		chomp($line);
		my @parser = ();
		my $item = "";
		@parser = split( /,/ , $line);
		foreach $item (@parser) {
			$item =~ s/^\s+//;
			$item =~ s/\s+$//;
		}
		push (@USERS, \@parser);
		$USERS = @USERS;
	}
	close('USERS');
	my $i = 0;
	my $return_result;
	while ( $i < $USERS ) {
		my $FNT = $USERS[$i][1];
		my $LNT = $USERS[$i][0];
		if ( ( $FN =~ /\Q$FNT/i) && ( $LN =~ /\Q$LNT/i) ) {
			$return_result = 1;
			return ($USERS[$i]->[0] , $USERS[$i]->[1]);
		}
		else {
			$return_result = "User not found";
		}
		
		$i++;
	}
	return $return_result;
}