print FILEHANDLE "Contents of File";
seek(FILEHANDLE,0,0)
@contents = <FILEHANDLE>