Hello,
thanks for the reply, and sorry for the delay in replying. I've added the use Tk::Label and use Tk::LabEntry
statements.But the code worked when I set the mode of the text files to 0777

perlapp.......... 
--bind test.txt[text,extract,file=c:\test,mode=0777];
.............
[download]

Thanx :)