PERL DBI 自动重连问题

[root@wx03 mojo]# cat relink.pl
use Mojolicious::Lite;
use JSON qw/encode_json decode_json/;
use Encode;
no strict;
no warnings;
use JSON;
use POSIX;
use JSON::RPC::Client;
use Data::Dumper;
use DBI;
# /foo?user=sri`
my %hash=();
my $dbUser='DEVOPS';
my $user="root";
my $passwd="R00t,uHagt.xx";
my $dbh  = DBI->connect("dbi:mysql:database=$dbUser;host=127.0.0.1;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
get '/api/relink' => sub{
  my $c = shift;
  my @arr2=();
   my $env = $c->param('env');
  my $hostSql = qq{select ip,info,env from publish_info where env='$env';};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
 
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, \$a1, \$a2,\$a3);
while( $selStmt->fetch() ){
print "\$a1 is $a1\n";
print "\$a2 is $a2\n";
print "\$a3 is $a3\n";
push (@arr2, "$a1  $a2  $a3" );
  };
 
  $c->render(json =>  \@arr2);
};
app->start;
 
[root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
["1.1.1.1  aa  test"]
 
停止数据库,启动数据库
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]
[root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# curl http://127.0.0.1:3000/api/relink?env=test
[][root@wx03 ~]# 
 
代码报错:
Server available at http://127.0.0.1:3000
$a1 is 1.1.1.1
$a2 is aa
$a3 is test
$a1 is 1.1.1.1
$a2 is aa
$a3 is test
DBD::mysql::st execute failed: Lost connection to MySQL server during query at /root/mojo/relink.pl line 25.
DBD::mysql::st bind_columns failed: Statement has no result columns to bind (perhaps you need to successfully call execute first, or again) at /root/mojo/relink.pl line 26.
DBD::mysql::st fetch failed: fetch() without execute() at /root/mojo/relink.pl line 27.
 
DBD::mysql::st execute failed: MySQL server has gone away at /root/mojo/relink.pl line 25.
DBD::mysql::st bind_columns failed: Statement has no result columns to bind (perhaps you need to successfully call execute first, or again) at /root/mojo/relink.pl line 26.
DBD::mysql::st fetch failed: fetch() without execute() at /root/mojo/relink.pl line 27.
 
没有自动重连