$getinfile=$indir.$infile;

($device,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($getinfile);

my($timenow)=time;
$delta=$timenow-$mtime;


if ($delta < 10) 	#***file too young, wait a few seconds
{
next;  			#***jump to the end of the loop
}