SImple perl script to turn on and off lights using a Telldus tellstick