Как я могу использовать STDIN в Perl?

Я передаю вывод нескольких сценариев. Один из этих сценариев выводит целую HTML-страницу, которая обрабатывается моим сценарием Perl. Я хочу чтобы иметь возможность вытащить все 58 КБ текста в perl-скрипт (который, конечно, будет содержать символы новой строки).

Я думал, что это может сработать:

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

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

Но это просто не делает то, что мне нужно.Есть предложения?