perl creare file di scrittura