bind pub - !head pub:head

proc pub:head { nick head hand chan arg } {
  set head [lindex $arg 0]

  if {$head == ""} {
    putmsg $chan "There is no domain $nick!!!"
  } else {
   set fp [open "head" w]
   #set fp [open "head" r]
   set data [read $arg]
   close $fp
}