sub get_month_year {
      my $file = shift;  #PLEASE EXPLAIN WHAT SHIFT IS DOING?
      my @params = stat $file;
      my @dparams = localtime($params[9]);
      my $month = $dparams[4] + 1;
      my $year = $dparams[5] + 1900;

      return($month, $year);
  }
[download]