while(time < $endTime)
    {

[...]

        select(undef, undef, undef, 0.05);

    }