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

##</code><code>##

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

##</code><code>##

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