sub checkGroupExist
{
    eval{$mysql=Net::MySQL->new(hostname=>"localhost",database=>"checkk",user=>"root",password=>"pw")};
    my ($grname)=@_;
    if(!$@)
    {
        $mysql->query(qq{Select GROUP_NAME from PROJECT_GROUP where GROUP_NAME='$grname'});
        my $record_set=$mysql->create_record_iterator();
        my $record=$record_set->each();
        if($record)
        {
            return 1;
        }
        $mysql->close();
    }
    else
    {
        print qq{Can't connect to database. Check your config in 'config.pl'};
        exit;
    }
    return 0;
}