$fs = sprintf "\\xFE\\x90\\xFF\\x00\\x%X", int($x*10);
$ob->write($fs); # does not appear to work