print "INSTANTIATING KIOSK ==============================\n";
my $kiosk = Kiosk->new($placard, $server, $debug_level);
# start the server on port __
print "INSTANTIATING SERVER port $kiosk_port ==============================\n";
my $server = MyWebServer->new($kiosk_port);
$server->run();
$server->{kiosk} = $kiosk;

##</code><code>##

    sub handle_request {
        my $self = shift;
        my $cgi  = shift;
        my $json_string = $cgi->param('POSTDATA');
        # { "type":"cardCheck", "date":"1482307795601", "lang": "EN", "machineName":"PLUSMAKM", "cardNumber":"1234567890", "PIN": "1234" }
        print "json_string=$json_string\n";
        $json_dict = decode_json $json_string;
        print "json_dict=" . Dumper($json_dict) . "\n";
        my $response = $self->{kiosk}->process($json_dict);
        print "response=$response\n";
        return $response;
    }

##</code><code>##

   sub new {
        my $self = {};
        $self->{class} = $class;
        $self->{kiosk} = undef;
        bless($self,$class);
        return $self;
    }

##</code><code>##

$server->run();