Example Perl application for Deis