#!/usr/bin/perl
# test.pl -- 
use Modern::Perl '2020';
use utf8;
no if $] >= 5.018, warnings => "experimental";
use open ':std', ':encoding(UTF-8)';
use autodie;
use Curses;

initscr;
endwin;

##</code><code>##

C:\Users\hsmyers\perl\two>test
Curses function 'initscr' is not defined in your Curses library at C:\Users\hsmyers\perl\two\test.pl line 10.

##</code><code>##

C:\Users\hsmyers\perl\two>test
Curses function 'endwin' is not defined in your Curses library at C:\Users\hsmyers\perl\two\test.pl line 11.

##</code><code>##

gcc curhello.c -lcurses

#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <curses.h>

int main(void) {
    WINDOW * mainwin;

    if ( (mainwin = initscr()) == NULL ) {
	fprintf(stderr, "Error initialising ncurses.\n");
	exit(EXIT_FAILURE);
    }
    mvaddstr(13, 33, "Hello, world!");
    refresh();
    sleep(3);
    delwin(mainwin);
    endwin();
    refresh();

    return EXIT_SUCCESS;
}