My Weather, little perl scrip, take 4 digit code and gets NWS data