sql server - "sp_spaceused" returns only one result set in perl -

when used "sp_spaceused" in sql server editor returns 2 result set.

i.e.

database_name, database_size, unallocated space  'test', '25000.00 mb', '4510.67 mb'

and

reserved, data, index_size, unused  '10741072 kb', '10007904 kb', '661728 kb', '71440 kb'

but in perl script returns one.

ex:

my $query = "sp_spaceused";  $sth = $dbh->prepare($query) ; $sth->execute();  while ( @row = $sth->fetchrow_array() )  {      print " @row \n ";  }

output:

database_name, database_size, unallocated space  'test', '25000.00 mb', '4510.67 mb'

is there way fetch , store both result set !

try (taken here)

do {     while ( @row = $sth->fetchrow_array() )     {         print " @row \n ";     } } while ($sth->{odbc_more_results});

Detect