Yes

Open(1,$x) read
Open(2,$y) write
Readline(1)
; analyze whatever
Writeline(2)
Loop
Close(1)
Close(2)
Copy $y $x
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.