in reply to copying a file

I'm not sure what your code has to do with your stated goal. 

use File::Copy;
copy("/doytest/cgi-bin/Data/00000001.txt" => "/doytest/cgi-bin/Data/Te
+mp/00000001.txt");

[download]
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom