Code:

bind pub - !test test:procproc test:proc {nick uhost hand chan arg} {      set connection [http::config -useragent "Mozilla 4.0"]set connection [http::geturl http://rss.binsearch.net/rss.php?max=50&g=alt.binaries.movies.divx -timeout 1000] set data [http::data $connection]set file [open debug.html w]puts $file $dataclose $fileregexp -nocase {<title>(.*?)</title>} $data -> titleputmsg $chan "Test.. Title=$title"}