How to read an entire file into a string using Perl.