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