sub canSendInput
{
    my $self = shift;
    my $pid = waitpid($self->{pid}, WNOHANG)
    my @ready = $self->{'selector'}->can_write(1);#
    Dumper(\@ready);
}