#! perl -slw
use strict;
use bytes;

our $FRAMES ||= 1000;

binmode STDOUT, ':raw';

for ( 1 .. $FRAMES ) {
	printf "\xf4X1" . '2' x 188 . "3\xf4X4" 
        . '5' x 56 . '6' . 'X' x 132;
}