Perl/dancer query fix (#3241)

frameworks/Perl/dancer/app.pl

@@ -9,7 +9,7 @@ use JSON::XS;  # Ensure that the fast implementation of the serializer is instal
 set serializer => 'JSON';
 
 my $dsn = "dbi:mysql:database=hello_world;host=TFB-database;port=3306";
-my $dbh = DBI->connect( $dsn, 'benchmarkdbuser', 'benchmarkdbpass', {} );
+my $dbh = DBI->connect( $dsn, 'benchmarkdbuser', 'benchmarkdbpass', { mysql_auto_reconnect=>1 } );
 my $sth = $dbh->prepare("SELECT * FROM World where id = ?");
 
 get '/json' => sub {