Help for this page

Select Code to Download

Select or download this

while($line=<>) {
  chomp $line;
...
    print OUTFILE "$line\n";
  }
}