Phoenix.pm: Three snippets

[Eden Li]

open FH, $file and do { local $/ = undef; $filestr = <FH>; close FH };

:)

From: "Webmaster" <webmaster at azwebs.com>
> Here's how I read a file into one string, but I think it can be shortened,
> if someone knows a trickier trick.
>
> open FILE, $file;
> $filestring = join('', (<FILE>));
> close FILE;