weather with perl