if ($input eq "\e[D\n")

##</code><code>##

if ($input eq "\e[C\n")