for (my $file = $0; defined $file; $file = glob "$dir/*") {
  next unless -f $file;
  return if (stat $_)[9] > $ft;
}