This is a perl program to scan an LED network