Select Code to Download

my $output_sem        : shared = Thread::Semaphore->new();

                    if ($success)
                    {
...
                        curs_to_ptr($input_window, $ptr);
                        $output_sem->up();
                    }

        elsif ($key eq chr(1))                # home
        {
...
            curs_to_ptr($input_window, $ptr);
            $output_sem->up();
        }

sub icb_print
{
...

    $output_sem->up();
}