open(FILE, '>', $file); truncates $file and opens it for writing.

open(FILE, '>>', $file); opens $file for appending.

open(FILE, '<', $file); opens $file for reading. See open in perlfunc for more information.