Perl script to pipe lights via UART to arduino.