#!/usr/bin/perl

use 5.12.1;

my $esc;
BEGIN { $esc = "\x1b[";
    print "${esc}2J${esc}3H";
}

use Tk;
use AnyEvent;
use Term::ReadLine;

my $t    = 0;
my $w    = AE::timer (0,1,sub {print "${esc}s${esc}1H$t s   ${esc}u";++$t});
my $term = Term::ReadLine->new('...');
$term->tkRunning(1);

my $x = $term->readline('> ');