alias utc {
  sockclose UTC
  sockopen UTC tycho.usno.navy.mil 80
}

on *:SOCKOPEN:UTC: {
  sockwrite -n UTC GET /cgi-bin/timer.pl HTTP/1.1
  sockwrite -n UTC Host: tycho.usno.navy.mil
  sockwrite UTC $crlf
}

on *:SOCKREAD:UTC: {
  sockread %UTC
  while ($sockbr) {
    if (<BR>*Universal Time iswm %UTC) {
      echo -ag $remove(%UTC,<BR>,$chr(9),Universal Time)
      unset %UTC
      sockclose UTC
      return
    }
    sockread %UTC
  }
}