systemroot$dbh->do("insert into I_Users set DogID=$cData->{'100'} , UserID=$NextUsers, Username=\"$cData->{'1000'}\", maxcount=$maxcount, ZDate=Curdate(),Password=$Pass, RecTime=NOW()+0");

записи в таблице не появляеться

а результат работы do на наличие ошибок ( $DBI::err ) проверял ?

vadiml$dbh->do("...") возвращает количество вставленных/измененных/удаленных записей, вот можешь и проверять это кол-во

ps попробуй так:
my $query = "insert into .....";
print "$query\n"; # посмотришь что посылаешь
my $nn = $dbh->do($query) or die DBI::errstr;

как частный случай может и пойдет, только не следует забывать, что например update
с условием, вернувший число обновленных записей равное 0, не есть нифига ошибка,
и вываливать скрипт в die после этого несколько не корректно... Но это так лирическое отступление...