Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
            }
      } 
    }
    
  2. or download this
    ... # the code before the while loop is identical to the program listi
    +ng above
    use Time::HiRes qw/sleep/
    ...
        sleep 0.01;
      }
    }
    
  3. or download this
    ...
    while(1) { 
        @console_events = $IN->Input(); 
        ...
    }
    
  4. or download this
    use strict;
    use warnings;
    ...
    __END__
    IN  info:()
    OUT info:(150 9001 0 15 7 0 0 149 29 150 71)