open (OUT, '>', $outfile') || ...

and 

open (IN, '<' $_) || ...