sub chk_snapshot { 
  my $dir=shift; 
 
  return unless -f "$dir/.snapshot"; 
 
  my $ft=(stat("$dir/.snapshot"))[9]; 
  my @fts=map { (stat($_))[9] } grep -f $_,($0,glob "$dir/*"); 
  
  ## return if .snapshot is older than any 
  for my $x (@fts) { 
    return if $x > $ft; 
  } 
 
  warn "snapshot is newer"; 
  
  snarf_file("$dir/.snapshot"); 
} 

##</code><code>##

return if map { (stat($_))[9] > $ft } grep -f $_,($0,glob "$dir/*");