Generate a random black and white   320x240   image continuously,
showing FPS (frames per second).



A sample image
 


 
time = AbsoluteTime[]; Animate[
 Column[{Row[{"FPS: ", Round[n/(AbsoluteTime[] - time)]}], 
   RandomImage[1, {320, 240}]}], {n, 1, Infinity, 1}]
 