try this.

code:

$nul = open(1,$tempfile,2)
$file = readline(1)
do
? $file
$file = readline(1)
until @error <> 0