Help for this page

Select Code to Download


  1. or download this
    open my $fh,'<:raw',$filename or die "Could not open $filename: $!";
my $data=do { local $/; <$fh> };
  2. or download this
    open my $fh,'<',$filename or die "Could not open $filename: $!";
binmode $fh;
my $data=do { local $/; <$fh> };
  3. or download this
    local *FH;
open FH,"<$filename" or die "Could not open $filename: $!";
binmode FH;
my $data=do { local $/; <FH> };