use Term::ReadLine;
$term = Term::ReadLine->new("APP DESCRIPTION");
$OUT = $term->OUT || *STDOUT;

$term->addhistory($fake_line);
$line = $term->readline(PROMPT);

print $line

##</code><code>##

PROMPTThis is a test. This is being written from a terminal. As I write, I get closer to the edge. The prompt continues on the line below without me hitting the return key. When I press up with an arrow key, I get these characters ^[[A^[[A