FileHandle::Unget is a Perl module which is a
drop-in replacement for FileHandle. It allows more
than one byte to be placed back on the input. It
supports an ungetc(ORD) which can be called more
than once in a row, and an ungets(SCALAR) which
places a string of bytes back on the input.