File Perl

open (FILEHANDLE, "print ;
close (FILEHANDLE);