I think this can be fixed.
I'm far from an expert in perl scripts.
However, by changing the url in file t4local.pl from:
I managed to get the script running again.
NOTE: Due to my poor skills, I hardcoded the woeid and temp format.
In this example, I used Tokyo
You can find your woeid at http://zourbuth.com/tools/woeid/
With a bit of luck, I think the original variables can be reused.
Then the url in file t4local.pl should be something like:
https://query.yahooapis.com/v1/public/yql?q=select * from weather.forecast where woeid=$locationid and u=$unitsid&format=xml
Do not forget to adjust the following line in t4local:
our $locationid = 1118370
This example is again for Tokyo