my $dbname = "dbname.dbf";
my $table = new XBase "${dbname}") || die;

while(1) {
        for my $i (1 .. 100) {
                #pseudo code
                $table->empty;
                $table->read($_);
                $table->display;
        }
        sleep(2);
}

$table->empty;