Select Code to Download

use Term::ReadLine;
$term = Term::ReadLine->new("APP DESCRIPTION");
...
$line = $term->readline(PROMPT);

print $line

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