open (SOURCE, "<$FLWFILE");
binmode SOURCE, ":raw";
$rb = read(SOURCE, $byte, 1);