Help for this page

Select Code to Download

Select or download this

local( $/, *FILE ) ;
open(FILE ,"<$file") or die "could not read file: $!";
binmode FILE;
my $raw = <FILE>;
close(FILE);

Select or download this

open(FILE, $file ) or die "could not read file: $!";
binmode FILE;
my $raw = do { local $/; <FILE> };
close(FILE);