#!/usr/local/bin/tclsh8.4

proc help {option} {

switch -- $option {
        eggdrop {
               set file "helpfiles/eggdrop.txt"
        }
        psybnc {
                puts "this will be psybnc help"
        }
        ircd {
                puts "this will be ircd help"
        }
        vhosts {
                puts "this will be vhosts help"
        }
default { return "There is no help for $option" }
}

exec less $file &
}

help $argv