Raspberry Pi Perl Demonstration Code