Implement read-write timeout on Perl's file handles at the perlio level