title: How can I slurp STDIN in Perl?
body: <p>I piping the output of several scripts.  One of these scripts outputs an entire HTML page that gets processed by my perl script.  I want to be able to pull the whole 58K of text into the perl script (which will contain newlines, of course).</p>
  
  <p>I thought this might work:</p>
  
  <pre><code>open(my $TTY, '&lt;', '/dev/tty');
  
  my $html_string= do { local( @ARGV, $/ ) = $TTY ; &lt;&gt; } ;
  </code></pre>
  
  <p>But it just isn't doing what I need.  Any suggestions?</p>