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