open (FILEHANDLE, '>', $filename);
.........
close (FILEHANDLE);