Use 1k3 instead of 1k2 resistor (0,1%), which is more common. Adopt lookup table accordingly. Change power off timeout to 3s.
add first version of perl module for FHEM