perl - STDIN からファイルを読み取り、STDOUT に書き込みます

Question

STDIN から入力された html ファイルを読み取り、何らかの機能を実行してから、別の html ファイルを STDOUT に書き込みたいと考えています。私の問題は、指定された方法でファイルを提供する必要があることです。私は多くのことを試しましたが、何もうまくいきません。何も印刷されていません

私のコマンドラインプロンプト

perl universe.pl<sun.html>galaxy.html

私のコード -

open(my $in, "<&STDIN")     or die "Can't dup STDIN: $!";
open(my $out, ">&STDOUT")     or die "Can't dup STDOUT: $!";

my @lines = <$in>;
foreach(@lines) {
   push(@newlines,$_);
   say "Lines pushing:", $_;
}