Well, you could take a look at shrink.pl. It's a little command-line utility script that recurses the directories you give it and will scale images by whatever amount you specify. (It happens to be my first Perl Monks post. ;) If you want an example of how to use Image::Magick, it might help.