my $h=$dbh->{Active};
&reconnect if (!$h);