use DBI;
my $dbh = DBI->connect("dbi:Informix:testdb");

my $sth = $dbh->prepare('select * from testdb.dbo.Flight')
    or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute();

while( @data = $sth->fetchrow_array())
{
    foreach(@data) {
        print "[$_]";
    }
    print "\n\n";
}

$sth->finish;
$dbh->disconnect;