Processing files in a directory

Hi Everyone,

I have around 2000 files in a directory. During processing of these
files, a temp* will be created for each file and its removed after
processing that file. If the processing is unsuccessful, temp* file
still exists. Can u plz help me to write a script to automate this
process using Perl ie., when a temp* file is found (which stays for
abt 10 secs max), I hv to move that temp* file to some other folder.

Thanks in advance,
Satish