2 my $it = Memories::Photo->retrieve_all;
4 my $thing = $it->first;
6 print $thing->title, " $tag\n";
7 my $tag = "date:".$thing->shot->ymd;
8 $thing->add_to_system_tags({tag => Memories::SystemTag->find_or_create({name
10 } while $thing = $it->next;