Select Code to Download

use strict;
use warnings;
...
        }
  } 
}

... # the code before the while loop is identical to the program listi
+ng above
use Time::HiRes qw/sleep/
...
    sleep 0.01;
  }
}

...
while(1) { 
    @console_events = $IN->Input(); 
    ...
}

use strict;
use warnings;
...
__END__
IN  info:()
OUT info:(150 9001 0 15 7 0 0 149 29 150 71)