Perl demo movie app