open OUT, '>', $filename or die ">$filename< error - $!";