Help for this page

Select Code to Download

Select or download this

my $data='';
while (<$file>) {
     $data .= $_;
    }

Select or download this

binmode($file);
my $data;
{ local $/; $data = <$file>; }