A small perl program to control the Bauhn/Aldi Wi-Fi power points