will this work?!?!

sub ready {

    my $self = shift;
    my  @results = $self->{Select}->can_read(0);
    if($results[0] == $self->{Socket}) {
        return 1;
    }
    else {
        return 0;
    }

}