Not a Perl solution, but I use evince-thumbnailer (I'm on Ubuntu Linux, not sure where else it works). Hope that helps.

Update: Oops, I don't think this will get you shots of each page... well, good luck anyway.