Select Code to Download

print "INSTANTIATING KIOSK ==============================\n";
my $kiosk = Kiosk->new($placard, $server, $debug_level);
...
my $server = MyWebServer->new($kiosk_port);
$server->run();
$server->{kiosk} = $kiosk;

    sub handle_request {
        my $self = shift;
...
        print "response=$response\n";
        return $response;
    }

   sub new {
        my $self = {};
...
        bless($self,$class);
        return $self;
    }

$server->run();