Replace select with Time::HiRes and added missing $self reference