En Perl, ¿cómo puedo leer un archivo completo en una cadena?

Estoy intentando abrir un archivo .html como una cadena larga y grande. Esto es lo que tengo: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; lo que resulta en: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01...