#!/usr/bin/perl system("/usr/bin/wget -O /tmp/wx http://api.wunderground.com/auto/wui/geo/WXCurrentObXML/index.xml?query=MUC"); open FILE, "/tmp/wx"; while ($line = ) { if ($line =~ /<([a-z_]+)>(.+?)