Select Code to Download

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

sub do_something() {
  if($dbh's status is false) {
    $dbh=DBI->connect()....
  }
}