for ( 1 .. $num_frames ) { print "00db" . pack "VVV", 16, $o, $image_size; $o += $image_size + 8 }