open FILE, $path; $/ = \1024; print while ;