open ($in, $infile) or die("Cannot open $infile");
open ($out, '>', $outfile) or die("Cannot open $outfile");
flock($out, 2); #lock output file
while(<$in>){
### edit each line here using $_
    print $out $_; ## print each line to output
}
close($out);
close($in);