use strict;
use warnings;

use IO::Select;

my $file;
open $file, ">", "somefile";
my $sel = IO::Select->new();
$sel->add($file);
my @writables= $sel->can_write();
print $#writables;