A perl script to rename image files based on unix mtime.