proc blah:proc {blah vars} {
set fid [open list.txt a+]
set fi [glob *]
set fe [split $fi]

foreach fil $fe {


puts $fid "!$trigger $arg/$fil)" 

puts $fid "!$trigger $arg/$fil (size: [filesize [file size $fil]])" 

}
cd $tdir
close $fid
}