#!/usr/bin/perl -w

use Term::ReadKey;
use IO::Select;

ReadMode 4;
my $sel=new IO::Select(STDIN);

my $ctrlCFlag=0;
while (!$ctrlCFlag)
{
  while(my @ready = $sel->can_read(1))
  {
    foreach my $filehandle (@ready)
    {
      if ($filehandle eq 'STDIN')
      {
        print ">>> GOT INPUT\n";
        while (my $char=ReadKey -1)
        {
          my $byte=unpack('C', $char);
          printf "INPUT: %d\n", $byte;
          if ($byte==3)
          {
            $ctrlCFlag=1;
            last;
          }
        }
      }
    }
  }
}
ReadMode 0;