sub modified_file{
 if((-f "$File::Find::name") and ($File::Find::name ne "winnt")){
  # do something
 }
}