use strict;
use XBase;

my $dbname = "dbname.dbf";

while(1) {
        for my $i (1 .. 100) {
                (my $table = new XBase "${dbname}") || die;
                $table->close || die;
        }
        sleep(2);
}