Sorry the original code does have a use strict in it.
As you can see almost all the virabels are defined with my.
So add a my to the first line were the variable $prometer is used along with use strict; at the top and we still have the same problem.