set f [open "|cat ファイル名]
gets $f data
>>437
close $f