$x = 25;
while ($x>0) {
 sleep(1);
 $ob->write("\xFE\x90\xFF\x00" . chr( $x * 10 ) );
 $ob->write_drain;
 $x--;
}