$dbh = DBI->connect(...);

sub do_query {
   my $connect;
   eval { 
      ($connect) = $dbh->selectrow_array('SELECT 1');
   };
   if ($@ || !$connect) {
       $dbh = DBI->connect(...) or die "Can't reconnect: $DBI::err";   
   }

   ## do query.
}