I recently started learning Perl and I used it's Gtk2 bindings to create an application.

It uses jpeginfo (already in the Ubuntu and Debian repositories) to scan for damaged images then sorts them...