работа с параметрами в tcl Опции

[wolfman]

Приветствую всех.

Понадобилось тут перед сборкой проекта в Квартусе иметь возможность подменять один файлик. Написал скрипт на TCL, но он ожидает ввода параметра с клавиатуры.
А мне надо, чтобы параметр передавался с запуском скрипта, т.е. типа такого: ./myscript.tcl 1
где 1 этот параметр, который определяет какой файл надо заменить.

Никак не соображу как это сделать.

Код скрипта прилагаю:

CODE

#!/usr/bin/tclsh
# получаем параметр с клавиатуры
set var [gets stdin]

# определяем путь, по которуму лежит скрипт и запоминаем его
set TclPath [file dirname [file normalize [info script]]]

# проверяем какой параметр нам передали
if {$var == 1} {
# если передали '1', копируем файл из src/debug/
file copy -force $TclPath/src/debug/pwr.vhd $TclPath

# иначе забираем файл из /src/release/
} else {file copy -force $TclPath/src/release/pwr.vhd $TclPath}