TCL скрипт Query

Question

Я написал небольшой фрагмент сценария TCL, который в основном реализует работу TCP.

if {$run_nam != 0} then {
    set namfile [open out.nam w]  ;# nam trace output goes here
    $ns namtrace-all $namfile
}

proc finish {} {
    global ns run_nam namfile loss_module

    if {$run_nam != 0} then {
        $ns flush-trace
        close $namfile
        puts "running nam..."
        exec nam namfile &
    }
    puts "Finishing now\n"
    exit 0
}

Есть ли способ, которым я мог бы пропустить этот шаг (где создается out.nam)? И загрузить код без создания out.nam?