use IO::Select;

my $r = open 'README';
my $w = open 'WRITEME', :w;

my $select = IO::Select.new;

$select.add($r);
$select.add($w);

say $select.can_read(0).perl;
say $select.can_write(0).perl;