Пример

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");