$dbh=DBI->connect() ....
while(1) {
   do_something();
}