Perl Example Modified: LED Strip Bricklet callback