ファイルの入出力

# ファイルを1行づつ入力
open(IN1,$ARGV[0]) || die "001 can't open $ARGV[0]\n";
while(){
  処理(各要素は $_に代入されている)
}
close(IN1);
----------------------------------------------------
# ファイルを1行づつ出力
open(OUT,">$ARGV[1]") ||  die "002 can't open $ARGV[1]\n";
foreach( @list ) {
  print OUT $_;
}
close( OUT );