rm: cannot remove 'tstpj/tfa': Permission denied
rm: cannot remove 'tstpj/msf': Permission denied
rm: cannot remove 'tstpj/olog': Permission denied
rm: cannot remove 'tstpj/Logs': Permission denied
rm: cannot remove 'tstpj/Web': Permission denied
rm: cannot remove 'tstpj/xml/FRAT09.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT03.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT05.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT02.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT06.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT04.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT07.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT01.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT08.xml': Permission denied
rm: cannot remove 'tstpj/xml/FRAT10.xml': Permission denied
rm: cannot remove 'tstpj/ord/FRAT05.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT03.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT09.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT01.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT07.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT08.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT10.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT06.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT04.ord': Permission denied
rm: cannot remove 'tstpj/ord/FRAT02.ord': Permission denied
    while executing
"exec rm -rf tstpj/"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh

exec rm -rf tstpj/
file mkdir tstpj
#file copy FRAT01.xml tstpj/FRAT01.xml
#file copy FRAT01.xml tstpj/FRAT02.xml
#file copy FRAT03.xml tstpj/FRAT03.xml
#file copy FRAT04.xml tstpj/FRAT04.xml
for {set i 1} {$i <= 10} {incr i} {
    set f [format "FRAT%02d.xml" $i]
    file copy FRAT.xml tstpj/$f
}

exit