なぜか Premature end of script エラーが出る

access_db.cgi

#! /usr/bin/perl                                                                   
use strict;
use warnings;
use JSON;
use CGI;
use DBI;
use Encode qw/ decode_utf8 /;

my $cgi = CGI->new;
my $table = $cgi->url_param('table');

# connect to DB                                                                    
my $dbh = DBI->connect(
    'dbi:mysql:dbname=hoge',
    'hoge',
    'hoge'
);

# create statement handler                                                         
my $sql = "select * from hoge_${table}";
my $sth = $dbh->prepare($sql);

# execute statement handler                                                        
$sth->execute();

my $container = [];
while ( my ($community_id, $community_name) = $sth->fetchrow_array ) {
    push @{$container}, { $community_id => decode_utf8($community_name) };
}

# release statement handler                                                        
$sth->finish();

# release database handler                                                         
$dbh->disconnect;

$cgi->header(
    -charset => 'UTF-8',
    -type    => 'application/json',
);
print JSON::encode_json( $container );