\ Web-scrape sample: get UTC time from the US Naval Observatory:
: read-url \ -- s
 "http://tycho.usno.navy.mil/cgi-bin/timer.pl" net:get
 not if "Could not connect" throw then
 >s ;

: get-time
  read-url
  /<BR>.*?(\d{2}:\d{2}:\d{2})\sUTC/
  tuck r:match if
    1 r:@ . cr
  then ;

get-time bye