my $in_fh;

open($in_fh,  "<", $path)
    || die "$0: cannot open $path for reading: $!";

    binmode($in_fh) || die "binmode failed";

    print while <$in_fh>;   

close($in_fh) || die "couldn't close $path: $!";