package require http
bind pub - !testing firstsocket
proc firstsocket {nick userhost handle chan text} {
set site http://zetascript.org/
set read [::http::geturl $site -timeout 10000]
regexp -nocase {<p>(.*?)</p>} $read raw line
putserv "PRIVMSG $chan :Testing 1st socket - $line"
}