#!/usr/bin/perl

use Curses;

my $cid = 12; # Just an arbitrary slot

initscr();
start_color();
init_pair($cid, ::COLOR_BLUE, ::COLOR_BLACK);
$blbk = COLOR_PAIR($cid);
attron($blbk);
addstr(0,0,"Hey");
refresh();
sleep(3);
endwin();