Help for this page

Select Code to Download

Select or download this

# Raw buffered handle.
open(my $fh, '<:perlio', $qfn)
   or die("open $qfn: $!\n");

Select or download this

open(my $fh, '<', $qfn)
   or die("open $qfn: $!\n");
binmode($fh);