Use OBI;
my $db = DBI->connect('DBI:mysql:mydata',
'webuser','super_secret_squirгеl');
my $sql_error = $db->state;
warn("BoT последняя по времени ошибка DBI SQL: $sql_error");