Select Code to Download

#!/usr/bin/perl
{
...
my $server = MyWebServer->new($kiosk_port);
print "INSTANTIATING KIOSK ==============================\n";
$kiosk = Kiosk->new($placard, $server, $debug_level);

package Kiosk;

...
        return $self->withdrawal_amount_requested($msg);
    }
}