Url output help pls

[EvilHeart]

sorry im new tcl

not work

Code :

package require http 2.4
bind pub -!- !bsscore bsscore
proc bscore {nick uhost hand chan text} {
   set t [::http://cricketarchive.com/Archive/Scorecards/292/292365/292365_mini.html/]
   set data [::http::data $t]
#   ::ccs::SaveFile test.html $data
   ::http::cleanup $t
  
   proc unhtml { text } {
      regsub -all -- text <[^>]+> $text
      return $text
  }
      
   foreach {black a1 a2 a3 a4 a5} $l {
        putserv "PRIVMSG $chan :$a1 $a2 $a3 $a4 $a5"
   }
  
}