my $dbh = DBI->connect($connection_string);
my $dbh2 = DBI->connect($connection_string2);
while (1) {
  my $count = get_table_count($dbh);
  do_table_copy($dbh,$dbh2) if $count;
  sleep(15 * 60);
}