set vrf a set int a set adr a script local.tcl local param set a [exec "show whois $adr"] puts "result:

$a
"