Биллинговая система Nodeny

##!/usr/local/bin/perl

use strict;
use warnings;

use DBI;

#my ( $nquery );
#my @row;
my $debug = 1 ;

#NODENY host,login,password,database
my ( $nd_host, $nd_login, $nd_pass, $nd_db ) =
  ( "127.0.0.1", "****mysql_login****", "***password***", "****nodeny_database_name*****" );

my $nddb = DBI->connect( join( ":", "DBI", "mysql", $nd_db, $nd_host ),
    $nd_login, $nd_pass )
  or die $DBI::errstr;

#здесь указываем номера груп и пакетов
my $sql = "SELECT id FROM users WHERE grp IN (2) AND paket=30 OR paket=31 OR paket=32 OR paket=33 OR paket=12 OR paket=13 OR paket=14 OR paket=15 OR paket=20 OR paket=21 OR paket=2 OR paket=99;";

my      $sth = $nddb->prepare($sql);
        $sth->execute;
 while (my @row = $sth->fetchrow_array)
              {
    $sql = "INSERT INTO pays SET "
    . "mid= @row ,"
    . "cash=0,"
    . "time=UNIX_TIMESTAMP(now()),"
    . "admin_id=1,"
    . "admin_ip=0,"
    . "office = 0,"
    . "reason = '',"
    . "coment = ' *****Текст сообщения**** ',"
    . "bonus = '',"
    . "type = 30,"
    . "category ='490';";
my  $nquery = $nddb->prepare($sql);
    $nquery->execute;
    $nquery->finish;
#             print @row;
#             print "a";
      };
$sth->finish;
$nddb->disconnect();

DBI connect('nodeny:127.0.0.1','nodeny_kern',...) failed: Host '127.0.0.1' is not allowed to connect to this MySQL server at message.sh line 16.
Host '127.0.0.1' is not allowed to connect to this MySQL server at message.sh line 16