perl open file for writing