#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use IO::Select;
my $selector = IO::Select->new();
$selector->add(\*STDIN);
my @ready;
say @ready = $selector->can_read();