Select Code to Download

sub chk_snapshot { 
  my $dir=shift; 
...
  
  snarf_file("$dir/.snapshot"); 
}

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