Intermediate Perl - Chapter 7 Exercise 1 Question

[Rich Johnson]

I am working my way through Intermediate Perl and have a question
concerning one of the exercises (It's a long-ish exercise, so I won't
bother typing it out as it's irrelevant to the question at hand). The
author's solution contains the following code:

... code ...
my ($gather, $yield) = gather_mtime_between($start, $stop);
find($gather, @starting_directories);
my @files = yield->();
... more code ...

sub gather_mtime_between{
  my ($begin, $end) = @_;
  my @files;
  my $gatherer = sub {
*    my $timestamp  (stat $_)[9]*
        unless (defined $timestamp) {
          warn "...";
          return;
        }
    ...
  };
  ...
}

My question is about the bold: Where is $_ getting its value?


Richard Johnson