第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.pl ($dummy, $IN, $OUT) = @ARGV;open READ, "< $IN"; open WRITE, "> $OUT";print WRITE while(<READ>);close WRITE; close READ;実行結果 C:\>perl c:\study\perl\chapte</read>…