#! perl -sl
use Time::HiRes qw[ time ];

our $LAYER //= ':raw';
our $B;

$s = time;
open (FILE, "<$LAYER", "junk.bin")
   or die "ERROR: Could not open $path.\n";

binmode FILE if $B;

$n=0;
while (1) {
   $eof = read (FILE, $header, 4);

   ($size, $code, $ftype) = unpack ("nCC", $header) ;
#   print join(':',$size, $code, $ftype, "\n");
   if ($size == 0) {
      print "Size is zero.  Exiting";
      last;
   }

   $size = $size - 4;
   if ($size > 0) {
      $eof = read (FILE, $data, $size);
   }
   $n += 4 + $size;
}
close FILE;
print $n;
printf "Took %.3f\n", time() - $s;