Select Code to Download

my $server = MyWebServer->new($kiosk_port);
print "INSTANTIATING KIOSK ==============================\n";
$kiosk = Kiosk->new($placard, $server, $debug_level);
#### let the server know what the kiosk obj is:
$server->{kiosk} = $kiosk;

package Server;
...
...
  return 0 unless defined $self->{kiosk};
  ...
}