Someone

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

proc help {option} {

switch -- $option {
        eggdrop {
               exec less helpfiles/eggdrop.txt
        }
        psybnc {
                puts "this will be psybnc help"
        }
        ircd {
                puts "this will be ircd help"
        }
        vhosts {
                puts "this will be vhosts help"
        }

}
}

help $argv