Select Code to Download

=item B<-a, --amount>

Search for files older than <amount> days, mandatory.

$amount = $amount * 24 * 60 * 60;

$result =
  grep { /.+\.$suffix$/ and $time - ( $_->stat )[9] >= $amount }
  io($dir)->all;

$result = File::Find::Rule->file()
                          ->maxdepth(1)
                          ->name(qr/.+\.$suffix$/i)
                          ->mtime(">= $amount")
                          ->in($dir);

$result = grep { -M >= $amount / 86400 } # Convert back to days
          File::Find::Rule->file()
                          ->maxdepth(1)
                          ->name(qr/.+\.$suffix$/i)
                          ->in($dir);

    $result =
      grep { $_ == 1 }
...
      map  { ( $_->stat )[9] }  # e.g i'm interested in this...
      grep { $_->name =~ /.+\.$suffix$/ } # ...and this
      io($dir)->all;