#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use Curses::UI;
my $cui = Curses::UI->new();
my $win = $cui->add( 'window_id', 'Window', );
my $editor = $win->add(
  'myeditor', 'TextEditor',
  -readonly, 1,
  -text, scalar `date;ps -ef`,
);
$cui->set_binding( sub { exit; }, "\cQ"); # CTRL-Q to exit
$cui->set_timer(
  't1',
  sub {
    $editor->text(scalar `date;ps -ef`);
    $editor->draw;
  },
);
$cui->mainloop;