added perl script to gather p1 telegram data into rrd file