Reading an Entire File at Once

...aka "slurp mode"...

    open(IN,"<$fn") or die("can't open $fn: $!\n");
    { local $/; $text = <IN>; }
    close(IN);