#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use DBI;
use Data::Dumper;

# Connection
my $dsn = qq|dbi:Informix:sysmaster|;
my $dbh = DBI->connect($dsn) or confess DBI->errstr();
$dbh->{'RaiseError'} = 1;
$dbh->{'ChopBlanks'} = 1;

# Hash to hold all info about tables...
my %dbinfo;

# Get info on extents...
{
    my $query = qq|select count(*), tabname
                   from sysextents
                   group by tabname|;

    my $sth = $dbh->prepare($query) or confess DBI->errstr();

    $sth->execute or confess DBI->errstr();

    my ( $count, $table );

    $sth->bind_col(1, \$count);
    $sth->bind_col(2, \$table);

    while ( $sth->fetchrow )
    {
        next unless $count >= 8;
        $dbinfo{$table}{'extents'} = $count;
    }
}

print Dumper %dbinfo;

END { $dbh->disconnect }