PerlIO::via::Limit implements a PerlIO layer that restricts length of stream.