finddepth (\&modified_file ,  c:\ );
sub modified_file
{     
   if (-f "$File::Find::name" ) 
        {
         #do something
        }
}