Perl interface to FilmAffinity