#!/usr/bin/perl

use warnings;
use strict;

use DBI;


while(1) {
  eval {
    my $dbh = DBI->connect("DBI:mysql:database=test","blah","blah")
	or die "Couldn't connect to DB\n";
    my $sth = $dbh->prepare("SELECT * FROM sometable\n")
	or die "Couldn't prepare\n";
    $sth->execute()
	or die "Couldn't execute\n";
    my @row = $sth->fetchrow_array();
    $sth->finish;
  };
  if ($@) {
    warn "DB error: $@";
  }
}