$session->interact(\*STDIN, "\r");
print $session "\r";

##</code><code>##

interact -nobuffer -re "(.*)\r" return