perl - 別の選択ボックスに基づいて選択ボックスにデータベースから値を入力する

Question

データベースの値を 1 つの選択ボックス、つまり ostype から他の選択ボックス (host_name) に入力したいと考えています。host_name の値は、データベースから取り込まれる必要があります。値を入力するために更新する必要がないように、そのための ajax コードを作成しました。このコードが完全ではないことはわかっていますが、コードのこの時点で立ち往生しています。これはどのように行うことができますか？

ここにcgiコードがあります：

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FindBin qw($Bin);
use logic;
my @host;
my $i=0;


my $q = CGI->new();
my $ostype=$q->param("ostype");

my $sth=logic->fetchos($ostype);
while(my @row = $sth->fetchrow()){
         $host[$i]=$row[0];
         $i++;
        }

my $JSCRIPT=<<EOF;
function call()
{
var x = document.getElementbyID("ostype").value;
if (x)
$.ajax({
type:"GET",
url:"cgi-bin/logic.cgi",
contentType: "application/json; charset=utf-8",
dataType: "json",
data:"ostype="+x,
});
}
}
EOF
;
print $q->header,
$q->start_html
(
        -title=>'Record Inserted',
),

$q->center($q->h1('Requested Input')), $q->br,"\n",


$q->start_form
(
        -method=>'post',
        -action=>'inputcgi.cgi',
 ), "\n",

 "Operating system",

       $q->scrolling_list(-name=>'ostype',
-size=>3,
-id=>'ostype',
-values=>['RHEL','Windows','Linux'],
-defaults=>['Select OS'],
-multiple=>'true',
-onClick=>"call()"),$q->br,"\n",

"Host name",

$q->scrolling_list(-name=>'host_name',
-size=>3,
-values=>[@host],
-defaults=>['Select servers'],
-multiple=>'true'),$q->br,"\n",

$q->submit(-value=>'Submit');
$q->end_form,
$q->end_html;

ロジック perl モジュール

sub new{
        $class=shift;
        $self={
                _host_name=>'',
        };
        bless $self,$class;
        return $self;
}

sub fetchos{
my($self,$host_name)=@_;

my $sth=$dbh->prepare("select DISTINCT host_name from HOST_LIST where os='$os' ");

$sth->execute() or die "$DBI::errstr";
return $sth;
}

ロジック.cgi

#!usr/bin/perl
use CGI;
use logic;
use CGI::Carp qw(fatalsToBrowser);
use FindBin qw($Bin);

print"hello";

選択ボックスにすべての値を入力したため、perl モジュールは機能していますが、ostype の特定の値に対しては機能していません。