#!/usr/bin/perl

use Term::Info;
use Term::ReadKey;
use Term::Size 'chars';


($cols, $rows) = chars;

ReadMode 4; # Turn off controls keys

sub userInput {


        $key = ReadKey(-1);

        if (not defined($key)) {
           #do nothing
        }
        elsif ($key eq "\e") {

           $key = ReadKey(-1);

           if ($key eq "[") {

              $key = ReadKey(-1);

              if ($key eq "A") {
                 print "Forward\n";

              }
              elsif ($key eq "B") {
                 print "Backward\n";

              }
              elsif ($key eq "C") {
                 print "Right\n";

              }
              elsif ($key eq "D") {
                 print "Left\n";

              }

           }

        }
        elsif ($key eq "q" or $key eq "Q") {
           #Change to exit function
           exit 0
        }
        else {
           print "Get key $key\n";
        }

        updateScreen();



}

sub updateScreen {
   #add code to refresh screen

   userInput();

}

#Accept user input
userInput();

        ReadMode 0;