$ perl anydata.pl
'1', '2', '3'
'4', '5', '6'
'7', '8', '9'
3 rows
DBI handle 0x85cecf8 cleared whilst still active, <DATA> line 4.
    dbih_clearcom (sth 0x85cecf8, com 0x85d1c58, imp DBD::AnyData::st):
       FLAGS 0x182195: COMSET Active Warn RaiseError PrintError PrintWarn ShowErrorStatement
       PARENT DBI::db=HASH(0x85cebfc)
       KIDS 0 (0 Active)
       IMP_DATA undef
       NUM_OF_FIELDS 3
       NUM_OF_PARAMS 0