Jak mogę wciągnąć STDIN do Perla?

Przesyłam dane wyjściowe kilku skryptów. Jeden z tych skryptów wyświetla całą stronę HTML, która jest przetwarzana przez mój skrypt Perla. Chcę mieć możliwość ściągnięcia całego 58K tekstu do skryptu perla (który oczywiście będzie zawierał znaki nowej linii).

Myślałem, że to może zadziałać:

open(my $TTY, '<', '/dev/tty');

my $html_string= do { local( @ARGV, $/ ) = $TTY ; <> } ;

Ale to nie robi tego, czego potrzebuję. Jakieś sugestie?

questionAnswers(4)

yourAnswerToTheQuestion