open $file, '>', $temp . $_;