binmode INBIN;
my $n_bytes = read(INBIN, $buff, $BUFSIZE);