#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh=DBI->connect('zzz','zzz','zzz');
while(1){
  my $sth=$dbh->prepare_cached('select count(*) from EXAMPLE');
  $sth->execute();
  my @r=$sth->fetchrow();
  print "$r[0]\n";
  $sth->finish();
  sleep 10;
}

$dbh->disconnect();