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