open(my $fh, "binary.file") or die("ack - $!");
my $chunk;
while(read($fh, $chunk, 4)) {
    my $data = unpack("i", $chunk);
    print "data is $data\n";
}