use threads;
use Curses;
use strict;

initscr();
curs_set(0);

box( ACS_VLINE, ACS_HLINE );

my $lthr = threads->create(\&counter, 5);
my $rthr = threads->create(\&counter, 15);

sub counter {
    my $pos = shift; #Position:Row
    my $lctr = 0;
    while(1) {
        $lctr++;
        move($pos,5);
        addstr("$lctr");
        napms(100);
        refresh();
    }
}

$lthr->join();
$rthr->join();

getch();
endwin();
exit(0);