how to get the warning message from DBI

[limei zhang]

Hi, there, 

I am using IMB DB2; DBD::DB2 driver ; perl program

If I type a sql command on command line, eg 

db2 delete from table1 where col1 = a

it will return a warning message as below if the record does not exist: 

SQL0100W  No row was found for FETCH, UPDATE or DELETE; or the result of a
query is an empty table.  SQLSTATE=02000

I only know  to get sqlstate code by : 

if($DBI::stat){
    my $sqlstat = $DBI::stat; 
}

Could anyone tell me how to get the rest of the message in using perl DBI? 

Thanks in advance. 


zlm