#!/usr/bin/perl use Mac::iPhoto::Shell; Mac::iPhoto::Shell->run;