unless (open (FH, "filename.ext")) {
    print STDERR "Cannot open file - ", $!, "\n";
    exit 1;
};
binmode (FH);

while (<FH>) {
    ... your code follows ...
};