perl テクニック　標準入力から読み込んでそのままファイル出力

とても短いコードでかけるのだが、省略が多すぎて混乱しがちなのも事実
open(FH, “>file.dat”);
while() {
print FH $_;
}
close(FH);
のなかでSTDINが省略されている。
$_は読み込んだファイルの内容を表す。
なので標準入力が終わるまでひたすらループしてファイルに出力するプログラムというわけ。
同じものをjavaで書くと数十行になるかもしれない。