open FH, "<binary.dat" or die "Can't open " $!\n";
binmode FH;
while (<FH>){
   # code here
}
close FH;