#! /usr/bin/perl
use strict;
use warnings;

use 5.020;
#use Getopt::Long;

use Prima qw( InputLine Application );

my $input;
$input = Prima::InputLine->new(
    text => '',
    writeOnly => 1,
    onChange => sub { say $input->text; },
);

run Prima;