use constant;
@ISA = qw (constant);
...

DBI->connect ("DBI:mysql:host=".IP.";database=".DB_NAME."", LOGIN, PASS,{PrintError => 0, RaiseError => 1})