on !*:text:!unban *:#,?: {
  if ($nick == `Tom-) {
  var %file black.ini 
  if ($read(%file,nw,$2)) write $+(-dl,$readn) %file $2 
  msg $nick $2 is no longer black listed
  }
  Else { Msg $nick Only `Tom- Is allowed to use this command }
}