proc my_exec {prog_name args} { set command "exec $prog_name" foreach var $args { append command " $var" } eval $command }