perl -MLWP::Simple -e "$|=1;while(1){$_=get('http://www.nasa.gov/mission_pages/shuttle/shuttlemissions/sts117/launch/index_Landing-blog.html');/-->\s(\d\d?:\d\d[^<]+)/;if($1ne$x){$x=$1;print $x,$/,$/};s leep 15}"