PerlIO::via::Timeout - a PerlIO layer that adds read & write timeout to a handle - View it on GitHub