_o5 cmd строка 1 ошибки

Я получаю сообщение об ошибке "ошибка при вызове класса $cls: $args" $...", когда я запускаю скрипт tcl ниже на ns-2

for {set i 0} {$i < $val(nn) } {incr i} {
set p_($i) [new Agent/Ping]
$ns_ attach-agent $node_($i) $p_($i) }

proc pingtraffic { src dst sec } {
global ns_ node_ p
eval $ns_ connect $p($src) $p($dst)
eval $ns_ at ($sec) "$p($src) send" }

pingtraffic 4 0 10.2

Я просто хочу отправить пакет ping с узла 4 на узел 0, как я могу это сделать?