I was actually sitting on some code for this for a while, and your post was finally the inspiration for me to get to work and add it to Data::Random. I just uploaded the new version (0.03), so it might be a while before it hits all the mirrors. When you get it, take a look at the rand_image() function.

Let me know if you have any feedback.