...
    open    INFILE, $file or die "Add warning here: $!";
    binmode INFILE;
    ...