[Perl] Funcion savefile

Hola , con esta funcion podran crear un archivo y escribir en el
Si el archivo ya existe solo escribe y no lo borra

1 2 3 4 5 6

#By pr0xXx0r sub savefile { open (SAVE,">>".$_[0]); print SAVE $_[1]; close SAVE; }

Ejemplo de uso

1	savefile("C:\\Windows\\Logs\\file.txt","hola")