perl/id3rename: rename files using id3 tags