bind pub - !head pub:head

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

  if {$head != ""} {
   putquick "PRIVMSG $chan :The variable is set to: $arg - Just like you want $nick!"
   set fp [open "head" r]
   set data [puts $arg]
   close $fp

  } else {
   putquick "PRIVMSG $chan :There is no domain $nick ! ! !"
  }
}