my $sel = IO::Select->new($handle);
my $end = time() + $timeout;
while( $buffer !~ m[\n] ) {
    my $left = $end - time();
    last if $left <= 0;
    last if !$sel->can_read($left);
    my $read = sysread( $handle, $buffer, 100, length( $buffer ) );
}