Perl file operation

Write to a file:

      Overwrite: open(FILE, ">filename.txt");
      Append-write: open(FILE, ">>filename.txt");