Select Code to Download

        my $form = Curses::Forms->new({ 'Y' => 1, 'X' => 0,
                'LINES' => $LINES - 2, 'COLS' => $COLS });
...

        $form->set_defaults ( DEF_FUNC => \&clock);
        $form->activate();

        local *do_somthing = sub {
                my $list_ref    = shift;
...
    $id =+ 10;
    return $id;
}