[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

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

Ejemplo de uso

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