A perl script to get from DS18B20 1-wire temperature sensors.