{ local $/ = \4096; # adjust as appropriate print while ; }