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> };