When I do stuff similar to this I usually do it in a one-liner so I tend to want to keep it short. I use different approaches depending on the situation, but sometimes I just keep a simple log (like print getstore($url), " $url";) which I then can use to filter away bad files (I don't want to have to download the same files twice). If you for some reason don't care for File::Type then a simple way I've used is the -T/-B file test functions to see if it's a text or binary file. If I want images only I check for -B success.

If you have any favourite command line website downloader you can easily generate an page indexing all the other pages or images you want to download and let the program do the job for you.

Hope this helps,
ihb